专家坐堂-[求助] 分页加载Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 分页加载  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103769)

--  作者：yupeng
--  发布时间：2017/7/16 18:39:00
--  [求助] 分页加载

老师您好

我按照分页加载树实列在窗口做了此功能，每页加载25条数据，我在窗口又做了一个关闭分页的功能，用第2段代码执行后，每页还只有25条数据，为什么不显示所示的行？请老师帮我看下。谢谢

窗口 AfterLoad 事件代码如下：

With DataTables("Clsz")
    .LoadFilter = "" \'清除加载条件
    .LoadPage = 0 \'加载第一页
    .LoadTop = 25 \'每页5行
    .LoadOver = "日期"
    .LoadReverse = True
    .Load()
    e.Form.Controls("TextBox1").Value = 1 & "/" & .TotalPages
    Tables("Clsz").Sort = "日期 DESC"
End With

加载所有数据，不分页全部显示

    DataTables("Clsz").LoadFilter = ""
    DataTables("Clsz").Load

[此贴子已经被作者于2017/7/16 23:30:56编辑过]

--  作者：新福星
--  发布时间：2017/7/17 5:36:00
--
DataTables("Clsz").LoadFilter = ""
DataTables("Clsz").LoadTop = ""
    DataTables("Clsz").Load

--  作者：有点甜
--  发布时间：2017/7/17 9:11:00
--
With DataTables("Clsz")
    .LoadFilter = "" \'清除加载条件
    .LoadPage = 0 \'加载第一页
    .LoadTop = "100 percent"
    .Load()
End With