以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  DataTableBuilder如何分页  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=171330)
--  作者：zhenghangbo
--  发布时间：2021/8/26 15:17:00
--  DataTableBuilder如何分页
用DataTableBuilder生成的表格如何分页，web前端分页用？

With DataTables("订单")
    .LoadFilter = "" \'一定要清除加载条件
    .LoadTop = 20
    .LoadPage = 0
    .Load()
End With

这样的方法没有用。
--  作者：有点蓝
--  发布时间：2021/8/26 15:21:00
--  
DataTableBuilder生成的表格怎么填充数据的？填充数据前先对源数据分页，在把分页后的数据填入DataTableBuilder生成的表格
--  作者：zhenghangbo
--  发布时间：2021/8/26 15:27:00
--  
Dim dtb As New DataTableBuilder("订单")
dtb.AddDef("id", Gettype(Integer))
dtb.AddDef("xx1", Gettype(String), 32)
dtb.AddDef("xx2", Gettype(String), 32)
.
.
dtb.Build()


直接用 
for i= 0 to 500
Dim dr1 As DataRow = DataTables("订单").AddNew() 
dr1("xx1")=  v1
dr1("xx2")=  v2
.
.
.
next
 一行一行加进去的,数据不写入数据库的，就在ft的主界面的一个表
[此贴子已经被作者于2021/8/26 15:27:42编辑过]
--  作者：有点蓝
--  发布时间：2021/8/26 15:32:00
--  
增加一个序号列，按顺序给值
for i= 0 to 5000
Dim dr1 As DataRow = DataTables("订单").AddNew() 
dr1("xx1")=  v1
dr1("序号")= i+1

然后对table分页，比如第二页，每页10行

dim page as integer = 2
dim pc as integer = 10
tables("订单").filter = "序号 > " & (page -1) * pc & " and 序号 <= " & page  * pc