Active Reports 补空白行

maxGyo '每页显示的最大行数
Private Sub ActiveReport_FetchData(eof As Boolean)

    If DsoPrint.eof Then
        Select Case GyoNo
            Case 1
                eof = True
                Exit Sub
            Case Else
                eof = False
        End Select
    Else
        eof = False
    End If

    If aaKEYFIELD <> DsoPrint.Fields("aKEYFIELD") Then
        If GyoNo <= maxGyo And GyoNo <> 1 Then
            '打印空白行
            Call PrintDetail(GyoNo, 0)
            GyoNo = GyoNo + 1
        End If
    Else
        '打印明细数据
        Call PrintDetail(GyoNo, 1)
        GyoNo = GyoNo + 1
        DsoPrint.MoveNext
    End If

    If GyoNo = 1 And eof = False Then
        '打印组头
        Call PrintGroupHeader()
        '打印明细数据
        Call PrintDetail(GyoNo, 1)
        '打印组尾
        Call PrintGroupFooter()
        aKEYFIELD = DsoPrint.Fields("aKEYFIELD")
        Me.Fields("GH1VALUE").Value = aKEYFIELD
        GyoNo = GyoNo + 1

        '移动到下一条记录
        DsoPrint.MoveNext
    End If

    If GyoNo > maxGyo Then GyoNo = 1

End Sub

【推广】免费学中医，健康全家人

原文地址：https://www.cnblogs.com/sekihin/p/661755.html

本作品采用知识共享署名-非商业性使用 2.5 中国大陆许可协议进行许可。