- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]关于分页加载显示1/总行 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=139185)
-- 发布时间：2019/8/7 16:18:00
-- [求助]关于分页加载显示1/总行
假设有200行数据，分页加载每页规定显示20行数据，如果当前行是第二页第一行，如何显示21/200 （200可以利用TotalRows统计得到，21自己不知如何统计），自己琢磨半天没有结果！麻烦老师帮帮！
另外有个想法，分页加载时规定每页显示行数，如何做到发布后客户随时更改（这个问题已经解决了）此设置，更改后保持原有加载条件的前提下立马刷新页面（就卡在不能立马刷新页面这个环节上了）？麻烦老师提供一下思路！谢谢！
此主题相关图片如下：微信图片_20190807161801.png
-- 发布时间：2019/8/7 16:44:00
--
页码*20+1
-- 发布时间：2019/8/9 14:00:00
--
页码*20+1
蓝版您好！
参照页码*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:08:00
--
写了什么代码？
-- 发布时间：2019/8/9 14:19:00
-- 回复：（有点蓝）写了什么代码？
我是将以下代码：
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:22:00
--
如果是副本表，看看：http://www.foxtable.com/webhelp/topics/1906.htm
-- 发布时间：2019/8/9 14:27:00
-- 回复：（有点蓝）如果是副本表，看看：http://www.fox...
不是副本表啊！
-- 发布时间：2019/8/9 14:37:00
--
上传实例看看
-- 发布时间：2019/8/9 14:43:00
-- 回复：（有点蓝）上传实例看看
蓝版:
我刚刚测试了一下，直接将代码放到表的PositionChanged事件中可以执行，
那为什么通过内部函数的引用无法执行呢？
-- 发布时间：2019/8/9 14:49:00
--
上传实例看看