[求助]关于分页加载显示1/总行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于分页加载显示1/总行

共有3457人关注过本帖树形打印复制链接主题：[求助]关于分页加载显示1/总行

洮沙

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

加好友

发短信

等级：四尾狐帖子：826 积分：7130 威望：0 精华：0 注册：2017/8/31 12:07:00

[求助]关于分页加载显示1/总行 发帖心情

Post By：2019/8/7 16:18:00 [显示全部帖子]

假设有200行数据，分页加载每页规定显示20行数据，如果当前行是第二页第一行，如何显示21/200 （200可以利用TotalRows统计得到，21自己不知如何统计），自己琢磨半天没有结果！麻烦老师帮帮！

另外有个想法，分页加载时规定每页显示行数，如何做到发布后客户随时更改（这个问题已经解决了）此设置，更改后保持原有加载条件的前提下立马刷新页面（就卡在不能立马刷新页面这个环节上了）？麻烦老师提供一下思路！谢谢！

此主题相关图片如下：微信图片_20190807161801.png

[此贴子已经被作者于2019/8/7 16:30:00编辑过]

洮沙

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

加好友

发短信

等级：四尾狐帖子：826 积分：7130 威望：0 精华：0 注册：2017/8/31 12:07:00

Post By：2019/8/9 14:00:00 [显示全部帖子]

以下是引用有点蓝在2019/8/7 16:44:00的发言：
页码*20+1

Output.Show(DataTables("表B").LoadPage*20+1)

直接调用代码刷新即可

DataTables("表B").LoadPage = 0

DataTables("表B").LoadTop = val（e.form.controls("textbox1").text）'行数

DataTables("表B").Load

蓝版您好！

参照页码*20+1

Output.Show(DataTables("表B").LoadPage*20+1)

写以下代码：

Dim Rp As Integer = Tables("批次").Position + 1
Dim Rs As Integer = val(Forms("批次").Controls("ComboBox1").text)
Dim Rd As Integer = (DataTables("批次").LoadPage) * Rs + Rp
Dim Rz As Integer = DataTables("批次").TotalRows
Forms("批次").Controls("Label11").text = Rd & "/" & Rz

用按钮执行没有问题，我计划放到“批次”表

PositionChanged

事件中，但是不执行代码？怎么回事，搞不清楚！麻烦你看一下，谢谢！

[此贴子已经被作者于2019/8/9 14:00:50编辑过]