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

老师，我现在分页加载如下：

想修改为这样：当我每页20行，总行数50行时/3页，只显示最后面10行，不是显示最后的20行，怎么弄？

老师还有个疑问，我初始加载的是最后一页，筛选后，在重置取消筛选，加载出来的是第一页呢，不是最后一页了呢？

Tables("中标统计").ApplyFilter = False

筛选后也分页了，是触发了重新加载，现在代码是这样的，怎么修改？

Dim dt As Table = CurrentTable
dt.DataTable.LoadFilter =  iif(filter > "", "(" & filter & ") And ", "") & "(" & Functions.Execute("单表加载") & ")"
dt.DataTable.LoadPage = 0
dt.DataTable.LoadTop =  20
dt.DataTable.Load()
e.Form.Controls("TextBox1").Value = 1 & "/" & dt.DataTable.TotalPages

With CurrentTable.DataTable
    .LoadFilter =  iif(filter > "", "(" & filter & ") And ", "") & "(" & Functions.Execute("单表加载") & ")"
    .LoadPage = .TotalPages - 1
    .LoadTop =  20
    .Load()
    e.Form.Controls("TextBox1").Value = (.LoadPage + 1) & "/" & .TotalPages
End  With

红色代码位置就只能这样改成这样，先显示最后一页呢？

按照帮助，最后一页显示为1，上一页，下一页代码怎么修改？

e.Form.Controls("TextBox1").Value = 1 & "/" & .TotalPages

上一页

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

下一页

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

目前加载出来结果是24/24，上一页，下一页没问题，

想加载出来是1/24的效果，现在点上一页出来结果就是23/24，2224......,点下一页没反应，一直是1/24

With CurrentTable.DataTable
    .LoadFilter =  iif(filter > "", "(" & filter & ") And ", "") & "(" & Functions.Execute("单表加载") & ")"
    .LoadPage = .TotalPages - 1
    .LoadTop =  20
    .Load()
    e.Form.Controls("TextBox1").Value = 1 "/" & .TotalPages
End  With

这样好像对了

上一页

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