【ActiveReports for .NET】补空白行(数据源为Dataset)

一共三种情形需要测试
1.不足一页
2.正好一页
3.超过一页

    Private Const iMaxGyo As Integer = 8
    Private iCnt As Integer
    Private iRowNo As Integer
    Private iRecCnt As Integer = 9
    Private iPageCnt As Integer
    Private Sub arMain_FetchData(ByVal sender As Object, ByVal eArgs As DataDynamics.ActiveReports.ActiveReport3.FetchEventArgs) Handles Me.FetchData

        iRowNo = iRowNo + 1

        If iCnt = iRecCnt Then
            If iRowNo > iMaxGyo Or iRowNo = 1 Then
                eArgs.EOF = True
            Else
                Me.Fields("COUNT").Value = ""
                eArgs.EOF = False
            End If
            Exit Sub
        Else
            eArgs.EOF = False
        End If

        iCnt = iCnt + 1
        Me.Fields("COUNT").Value = iCnt
        Me.Fields("PageCnt").Value = iPageCnt

        If iRowNo = iMaxGyo Then
            iPageCnt = iPageCnt + 1
            iRowNo = 0
        End If

    End Sub