主题：分页只加载分页后的多余行

这样好像对了

上一页

With DataTables("中标统计")
    If .LoadPage < .TotalPages - 1 Then
        .LoadPage = .LoadPage +1
        .Load()
        e.Form.Controls("TextBox1").Value = (.TotalPages - .LoadPage) & "/" & .TotalPages
    End If
End With

下一页

With DataTables("中标统计")
    If .LoadPage > 0  Then
        .LoadPage = .LoadPage - 1
        .Load()
        e.Form.Controls("TextBox1").Value = (.TotalPages - .LoadPage) & "/" & .TotalPages
    End If
End With

第一页

With DataTables("中标统计")
    If .LoadPage < .TotalPages - 1 Then
        .LoadPage = .TotalPages - 1
        .Load()
        e.Form.Controls("TextBox1").Value = 1  & "/"  & .TotalPages
    End If
End With

最末页

With DataTables("中标统计")
    If .LoadPage <> 0 Then
        .LoadPage = 0
        .Load
        e.Form.Controls("TextBox1").Value = .TotalPages & "/" & .TotalPages
    End If
End With

这不合理啊，加载的本来就是最后一页，怎么能显示为第一页，而且也容易导致计算混乱。不然你倒序加载好了，

是有点混乱，还是现实总页数算了，谢谢老师。

老师，新问题，窗口的AfterLoad代码

With DataTables("介绍信管理")
    .LoadFilter = Functions.Execute("单表加载")
    .LoadPage = .TotalPages - 1 '加载最后一页
    .LoadTop =  20 '每页10行
    .LoadOver =  "介绍信编号"
    .Load()
    e.Form.Controls("TextBox1").Value = .TotalPages & "/" & .TotalPages
End  With

直接在窗口应用时，加载的是最后一页数据，但打开这个页签窗口时，加载出来的数据不是最后一页数据呢？，而且点下一页，下面页码会变成：0/2，1/2，2/2

 

做了个示例，当加载依据列为整数型时没问题，字符型有不对，怎么解决字符型的问题嗯，我有的项目编号为201801-0001类似格式。

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:分页加载.table

TotalPages 要加载过一次才能取得到值，只能加载2次，或者使用sql到数据库自己计算一下

老师，用sql数据库怎么计算呢？我全部采用的外部数据。

select count(*) / 20  from {表A}