主题：[求助]如何设计并实现分页加载按钮？

 1、判断一下TotalPages，如果等于0，就把LoadPage 弄成0

 2、不会有你这种情况，你代码肯定写错位置

 3、代码写到用代码设置全部单选按钮为不选中，或者加一个全部单选框，选择全部

缺省按钮代码

DataTables("临时版本跟踪表").load()
Dim kh As WinForm.ComboBox = e.Form.Controls("客户")
Dim bdjx As WinForm.ComboBox = e.Form.Controls("博达机型")
Dim xqbh As WinForm.TextBox = e.Form.Controls("需求编号")
kh.text=""
bdjx.text=""
xqbh.text=""
If User.Name.Trim() = "liujiyong@bdcom.com.cn" Then
    DataTables("临时版本跟踪表").loadFilter = "状态 = 'Confirming' or 状态 = 'Bound'  or 状态 = 'Submitted'"
    DataTables("临时版本跟踪表").Load()
Else
    Select Case user.Group
        Case "协议一组","协议二组","交换组","R驱动组","S驱动组","EPON组","ONU组","网管组","网络组","路由组","PTN应用组","链路组"
            DataTables("临时版本跟踪表").LoadFilter = "研发邮箱 like '%" & User.Name.trim() & "%'"
        Case "测试epon"
            DataTables("临时版本跟踪表").LoadFilter = "邮件通知 like '%eponver@bdcom.com.cn%'"
            DataTables("临时版本跟踪表").loadFilter = "状态 = 'Confirming' or 状态 = 'Bound'  or 状态 = 'Submitted'"
            DataTables("临时版本跟踪表").Load()
        Case "测试switch"
            DataTables("临时版本跟踪表").LoadFilter = "邮件通知 like '%switchver@bdcom.com.cn%'"
            DataTables("临时版本跟踪表").loadFilter = "状态 = 'Confirming' or 状态 = 'Bound'  or 状态 = 'Submitted'"
            DataTables("临时版本跟踪表").Load()
        Case "测试router"
            DataTables("临时版本跟踪表").LoadFilter = "邮件通知 like '%routerver@bdcom.com.cn%'"
            DataTables("临时版本跟踪表").loadFilter = "状态 = 'Confirming' or 状态 = 'Bound'  or 状态 = 'Submitted'"
            DataTables("临时版本跟踪表").Load()
        Case "配置管理"
            DataTables("临时版本跟踪表").LoadFilter = ""
            DataTables("临时版本跟踪表").Load()
    End Select
End If
Tables("临时版本跟踪表").Filter = "状态 = 'Confirming' or 状态 = 'Bound'  or 状态 = 'Submitted'"
DataTables("临时版本跟踪表").Load()
Tables("临时版本跟踪表").Sort = "需求编号 DESC"

全部按钮代码

DataTables("临时版本跟踪表").load()
Dim kh As WinForm.ComboBox = e.Form.Controls("客户")
Dim bdjx As WinForm.ComboBox = e.Form.Controls("博达机型")
Dim xqbh As WinForm.TextBox = e.Form.Controls("需求编号")
kh.text=""
bdjx.text=""
xqbh.text=""
If User.Name.Trim() = "liujiyong@bdcom.com.cn" Then
    DataTables("临时版本跟踪表").LoadFilter = ""
Else
    Select Case user.Group
        Case "协议一组","协议二组","交换组","R驱动组","S驱动组","EPON组","ONU组","网管组","网络组","路由组","PTN应用组","链路组"
            DataTables("临时版本跟踪表").LoadFilter = "研发邮箱 like '%" & User.Name.trim() & "%'"
        Case "测试epon"
            DataTables("临时版本跟踪表").LoadFilter = "邮件通知 like '%eponver@bdcom.com.cn%'"
        Case "测试switch"
            DataTables("临时版本跟踪表").LoadFilter = "邮件通知 like '%switchver@bdcom.com.cn%'"
        Case "测试"
            DataTables("临时版本跟踪表").LoadFilter = "邮件通知 like '%routerver@bdcom.com.cn%'"
        Case "配置管理"
            DataTables("临时版本跟踪表").LoadFilter = ""
    End Select
End If
DataTables("临时版本跟踪表").Load()
e.Form.Controls("TextBox1").Value = DataTables("临时版本跟踪表").LoadPage + 1 & "/" & DataTables("临时版本跟踪表").TotalPages
Tables("临时版本跟踪表").Sort = "需求编号 DESC"

问题来了。

当我点击了全部，指定到第二页2/4.再次点击缺省，发现加载数据为空。哪里有问题？

不清楚在哪里改，请明示。

Load之前