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