以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  分页加载的错误  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=103496)
--  作者：newsun2k
--  发布时间：2017/7/10 11:29:00
--  分页加载的错误
Dim cnt As Long
Dim cmd As New SQLCommand
cmd.ConnectionName = Vars("gsLianJieMC")
cmd.CommandText = "Se lect count(*) From {表A}"
cnt = cmd.ExecuteScalar()
msgbox(cnt)                        \'此处报4000多
With DataTables("表A")
    .LoadFilter = "" \'加载条件
    .LoadReverse = False      \'倒序,默认按主键倒序
    .LoadTop = 200
    .LoadPage = 0   
    .Load()
    msgbox(.TotalPages)        \'此处报11
End With
翻到第二页就无数据了。
我在测试环境，重现做了一个窗口，指定了loadover后，一切都正常了。
到实际环境，在.loadFilter前面指定了loadover，还是没有反应。
救命啊。
--  作者：有点甜
--  发布时间：2017/7/10 11:35:00
--  
你第二页的代码怎么写？
--  作者：newsun2k
--  发布时间：2017/7/10 11:41:00
--  
With DataTables("订单")
If .LoadPage < .TotalPages - 1 Then
 .LoadPage = .LoadPage + 1
 .Load()
End If
End With
--  作者：有点甜
--  发布时间：2017/7/10 11:43:00
--  

试试直接写

 

With DataTables("表A")
    .LoadOver = "_Identify"
    .LoadFilter = "" \'加载条件
    .LoadReverse = False      \'倒序,默认按主键倒序
    .LoadTop = 200
    .LoadPage = 1
    .Load()
    msgbox(.TotalPages)        \'此处报11
End With