Foxtable(狐表)用户栏目专家坐堂 → 分页加载,当前页怎么不变化


  共有2636人关注过本帖树形打印复制链接

主题:分页加载,当前页怎么不变化

美女呀,离线,留言给我吧!
yfy13338431925
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:512 积分:4492 威望:0 精华:0 注册:2018/12/5 23:10:00
分页加载,当前页怎么不变化  发帖心情 Post By:2020/8/6 16:38:00 [只看该作者]

兰老师:
DataTables("窗口2_Table1").LoadFilter = ""  '一定要清除加载条件
DataTables("窗口2_Table1").LoadTop = 10  '每页加载10行
Dim btn As WinForm.Button =  e.Form.Controls("Button1")
btn.PerformClick()
With DataTables("窗口2_Table1")
    .LoadFilter = "" '清除加载条件
    .LoadPage = 0 '加载第一页
    .LoadTop = 10 '每页5行
    .Load()
    e.Form.Controls("TextBox1").Value = 1 & "/" & .TotalPages  'TextBox1不随“下一页”按钮变动“?/总页数”而发生值的变化
End With
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


 回到顶部
帅哥哟,离线,有人找我吗?
y2287958
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4760 积分:34608 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2020/8/6 16:52:00 [只看该作者]

e.Form.Controls("TextBox1").Value = .LoadPage + 1 & "/" & .TotalPages 

 回到顶部
美女呀,离线,留言给我吧!
yfy13338431925
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:512 积分:4492 威望:0 精华:0 注册:2018/12/5 23:10:00
  发帖心情 Post By:2020/8/6 17:07:00 [只看该作者]

您是大叔么?
依然如故,还是不变

 回到顶部
美女呀,离线,留言给我吧!
yfy13338431925
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:512 积分:4492 威望:0 精华:0 注册:2018/12/5 23:10:00
  发帖心情 Post By:2020/8/6 17:15:00 [只看该作者]

搞定了
e.Form.Controls("TextBox1").Value = .LoadPage + 1 & "/" & .TotalPages 放在上一页,下一页中

 回到顶部