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

此主题相关图片如下：分页.png

这是ft论坛的分页加载。这个该如何设计并实现？

我只会做首页，上一页，下一页，末页。

但类似与论坛上的这种动态显示也，比如当前是第几页，共计多少页，这是怎么统计出来的？

此主题相关图片如下：04.png

我改为了这种方式。

问题1.总页数4是对的。为什么起始页是0，应该是1吧。

问题2.好像对各种状态筛选的数据不生效。

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

点击浏览该文件:临时版本跟踪系统26.rar

临时版本跟踪表------状态筛选，发现选择了某个状态，第几页/总页数不会自动变换。

哦。

问题1.当筛选的数据为空，竟然显示1/0，应该是0/0吧。

问题2.当选择了published单选按钮，处于2/2时.再次选择Bound发现变为了2/1了。应该是1/1.

问题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.再次点击缺省，发现加载数据为空。哪里有问题？

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