[求助]如何设计并实现分页加载按钮？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何设计并实现分页加载按钮？

共有3578人关注过本帖树形打印复制链接主题：[求助]如何设计并实现分页加载按钮？

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/11/4 9:36:00 [显示全部帖子]

分页你不是做了么？要加载那一页，只需要设置Loadpage啊

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/11/4 9:47:00 [显示全部帖子]

TotalPages得到全部页数

LoadPage设置要加载哪一页

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/11/4 11:20:00 [显示全部帖子]

1、你可以在原来基础上加1啊

2、不理解你说什么

[此贴子已经被作者于2014-11-4 11:20:15编辑过]

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/11/4 14:13:00 [显示全部帖子]

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

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

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

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/11/4 16:47:00 [显示全部帖子]

你的LoadPage要设置回第1页，也就是0

有点甜

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/11/4 17:36:00 [显示全部帖子]

Load之前

下一主题 >> << 上一主题

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