- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何设计并实现分页加载按钮？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=59425)
-- 发布时间：2014/11/4 9:34:00
-- [求助]如何设计并实现分页加载按钮？
此主题相关图片如下：分页.png
这是ft论坛的分页加载。这个该如何设计并实现？
-- 发布时间：2014/11/4 9:36:00
--
几个Label 和一个文本框. 和一个按钮
-- 发布时间：2014/11/4 9:36:00
--
分页你不是做了么？要加载那一页，只需要设置Loadpage啊
-- 发布时间：2014/11/4 9:45:00
--
我只会做首页，上一页，下一页，末页。
但类似与论坛上的这种动态显示也，比如当前是第几页，共计多少页，这是怎么统计出来的？
-- 发布时间：2014/11/4 9:47:00
--
TotalPages得到全部页数
LoadPage设置要加载哪一页
-- 发布时间：2014/11/4 11:17:00
--
此主题相关图片如下：04.png
我改为了这种方式。
问题1.总页数4是对的。为什么起始页是0，应该是1吧。
问题2.好像对各种状态筛选的数据不生效。
-- 发布时间：2014/11/4 11:20:00
--
1、你可以在原来基础上加1啊
2、不理解你说什么
-- 发布时间：2014/11/4 11:49:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:临时版本跟踪系统26.rar |
上例子。
临时版本跟踪表------状态筛选，发现选择了某个状态，第几页/总页数不会自动变换。
-- 发布时间：2014/11/4 12:08:00
--
加入代码
If e.Sender.Checked Then
DataTables("临时版本跟踪表").LoadFilter = "状态 = \'Submitted\' "
DataTables("临时版本跟踪表").Load()
e.Form.Controls("TextBox1").Value = DataTables("临时版本跟踪表").LoadPage + 1 & "/" & DataTables("临时版本跟踪表").TotalPages
Tables("临时版本跟踪表").Sort = "需求编号 DESC"
End If
-- 发布时间：2014/11/4 12:28:00
--
加入代码
If e.Sender.Checked Then
DataTables("临时版本跟踪表").LoadFilter = "状态 = \'Submitted\' "
DataTables("临时版本跟踪表").Load()
e.Form.Controls("TextBox1").Value = DataTables("临时版本跟踪表").LoadPage + 1 & "/" & DataTables("临时版本跟踪表").TotalPages
Tables("临时版本跟踪表").Sort = "需求编号 DESC"
End If
哦。
问题1.当筛选的数据为空，竟然显示1/0，应该是0/0吧。
问题2.当选择了published单选按钮，处于2/2时.再次选择Bound发现变为了2/1了。应该是1/1.
问题3.单击单选按钮，然后再次点击了其他的按钮，比如全部，那么单选按钮应该自动由选中变为没有选中状态。可发现单选按钮仍然处于已被选中的状态，但没生效。