共2 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：[求助]利用TopVisibleRow制作翻页效果出错
1楼
洮沙 发表于：2025/5/10 11:13:00以下代码，最后一页出错，TopVisibleRow值不对，如何修改？麻烦老师帮解决一下，谢谢！
Dim t As Table
t = e.Form.Controls("Table1").Table
Dim max As Integer = 10
If t.Rows.Count > max Then
If t.BottomVisibleRow = t.Rows.Count - 1 Then
t.TopVisibleRow = 0
Else
t.TopVisibleRow = t.TopVisibleRow + max
End If
End If
此主题相关图片如下：1.png
此主题相关图片如下：2.png
此主题相关图片如下：3.png
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
[此贴子已经被作者于2025/5/10 11:13:19编辑过]
2楼
有点蓝 发表于：2025/5/10 11:27:00正常的，如果下面没有更多行了，只能这样。
共2 条记录, 每页显示 10 条, 页签:
[1]