- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 奇怪 分页加载 每个页的合计书 不等于总页的合计？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=91718)
-- 发布时间：2016/10/17 15:58:00
-- 奇怪 分页加载 每个页的合计书 不等于总页的合计？
奇怪 分页加载 每个页的合计书 不等于总页的合计？
项目传上 狐爸帮助看一下 加载10月份的数据 分页加起来是90507 实际总计是90607
奇怪
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新建文件夹.rar |
-- 发布时间：2016/10/17 16:31:00
--
分页依据指定
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
........
-- 发布时间：2016/10/17 16:51:00
--
谢谢