主题：[求助]报表自动添加行

是，还有问题？

afterBuild事件，加入代码，把空行删除即可。

Select Case e.Book.TempLate
    Case "出库单"
        Dim count As Integer = 0
        Dim flag As Integer = 0
        Dim ls As New List(Of Integer)
        Dim sheet As XLS.Sheet = e.Book.Sheets(0)
        For i As Integer = 0 To sheet.Rows.count
            If sheet(i,0).Text = "商品代码" Then
                count = 0
                flag = 1
            ElseIf flag <> 0 Then
                If sheet(i,0).Text > "" Then
                    count += 1
                    If flag = 2 Then flag = 0
                ElseIf sheet(i, 0).Text = "" AndAlso count > 9 Then
                    flag = 2
                    ls.add(i)
                End If
            End If
        Next
        For i As Integer = ls.count-1 To 0 Step -1
            output.show(ls(i))
            sheet.Rows.RemoveAt(ls(i))
        Next
End Select