建一个视图，比如视图名称：视图1，语句：Select {产品表}.产品编号,名称,sum(数量) As [入库数] From {入库表} Right JOIN {产品表} ON {产品表}.[产品编号] = {入库表}.[产品编号] Group By {产品表}.产品编号,名称
窗口表的select语句为：select * from 视图1
然后直接对窗口表分页即可：http://www.foxtable.com/webhelp/topics/2269.htm
分页按钮：
With DataTables("窗口1_Table1")
.LoadFilter = "" '取消加载条件
.LoadTop = 3 '每页显示3条记录
.LoadPage = 0
.LoadOver = "产品编号"
.Load()
msgbox("Totalpages: " & .Totalpages) '这个totalpages总是弹-1,不明白原因
End With
下一页：
With DataTables("窗口1_Table1")
If .LoadPage < .TotalPages - 1 Then
.LoadPage = .LoadPage + 1
.LoadOver = "产品编号"
.Load()
End If
End With
加好友 
发短信
Post By：2020/11/16 10:49:00 [只看该作者]
