Access报表强制分页问题
Option Compare Database
Dim leftrow As String
Dim leftrow2 As String
Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
leftrow2 = Me.字段名
If Me.Section(acDetail).ForceNewPage = 1 Then
Me.Section(acDetail).ForceNewPage = 0
Else
If Me.字段名 <> leftrow Then
Me.Section(acDetail).ForceNewPage = 1
leftrow = leftrow2
End If
End If
End Sub
我access报表没有用过,临时急用,有个问题请教:
当报表中一条记录的一个字段和下一个记录同字段值不同时,强制分页,我上面的程序,分页的地方都晚了一条记录,查了帮助也没有找到解决方式,请指教