Foxtable(狐表)用户栏目专家坐堂 → 11月16日更新,增加分页加载功能,并修正了多个Bug


  共有19325人关注过本帖树形打印复制链接

主题:11月16日更新,增加分页加载功能,并修正了多个Bug

帅哥哟,离线,有人找我吗?
狐狸爸爸
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47477 积分:251256 威望:0 精华:91 注册:2008/6/17 17:14:00
11月16日更新,增加分页加载功能,并修正了多个Bug  发帖心情 Post By:2009/11/16 10:51:00 [显示全部帖子]

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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47477 积分:251256 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/11/16 10:55:00 [显示全部帖子]

以下是引用lxl在2009-11-16 10:53:00的发言:
我晕,自己用代码实现的分页加载要改代码了


呵呵,等我新帮助出来,你可能还有不少要改的。


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47477 积分:251256 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/11/16 10:59:00 [显示全部帖子]

正在写,不好说那一天,我尽快。

 回到顶部