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

这样好像对了

上一页

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