LoadPage
如果一个表的行数非常多,可以考虑分页加载,用LoadTop指定每页的行数,用LoadPage要加载的页号。
示例
下面的代码每页加载50个订单,加载第三页,注意页号从0开始,所以第三页的编号为2:
With DataTables("订单")
.LoadTop = 50
.LoadPage = 2
.Load
End With
需要注意的是分页加载不能按百分比,只能按行数,例如下面的代码,始终加载的都是前10%的订单,而不是第三个10%的订单:
With DataTables("订单")
.LoadTop = "10 Percent"
.LoadPage = 2
.Load
End With
提示:
表的主键必须是自动增量列,才可以分页加载。
TotalPages
整数型,返回分业加载时,总的可加载总页数。
在使用此属性之前,必须先设置LoadTop属性,如果还有加载条件,也得先设置LoadFilter属性,才能返回正确的页数。
示例
Dim
p As Integer = 3
With DataTables("订单")
.LoadTop = "20"
If p <= .TotalPages Then
.LoadPage = p
.Load
End If
End With
[此贴子已经被作者于2009-11-16 15:09:51编辑过]
以下是引用lxl在2009-11-16 10:53:00的发言:
我晕,自己用代码实现的分页加载要改代码了
呵呵,等我新帮助出来,你可能还有不少要改的。
新帮助出来,我要打印一下,以后再更新不会变得太多吧?