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
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