主题：分页加载的错误

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，还是没有反应。

救命啊。