奇怪分页加载每个页的合计书不等于总页的合计？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

分页依据指定

Dim Filter As String

Dim y As Integer = Date.Today.Year

Dim m As Integer = Date.Today.Month

Dim dt1 As New Date(y, m, 1)

Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取本月的最后一天

e.Form.Controls("startdate").value=Dt1

e.Form.Controls("enddate").value=Dt2

'Filter ="日期 >= '" & dt1 & "' And 日期 <= '" & dt2 & "' and 单据性质='费用单'"

'Filter ="日期 >=#" & dt1 & "# And 日期 <=#" & dt2 & "#" & "and 单据状态='已审核'"

Filter ="日期 >=#" & dt1 & "# And 日期 <=#" & dt2 & "#"

With DataTables("销售单")

.LoadFilter = ""

.LoadFilter = filter

.LoadOver="_Identify"

.LoadPage = 0 '加载第一页

.LoadTop =60 '每页60行

.Load()

e.Form.Controls("TextBox1").Value = 1 & "/" & .TotalPages

End With

........

主题：奇怪 分页加载 每个页的合计书 不等于总页的合计？