以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  分页加载，当前页怎么不变化  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=153307)
--  作者：yfy13338431925
--  发布时间：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
--  发布时间：2020/8/6 16:52:00
--  
e.Form.Controls("TextBox1").Value = .LoadPage + 1 & "/" & .TotalPages 
--  作者：yfy13338431925
--  发布时间：2020/8/6 17:07:00
--  
您是大叔么？
依然如故，还是不变
--  作者：yfy13338431925
--  发布时间：2020/8/6 17:15:00
--  
搞定了
e.Form.Controls("TextBox1").Value = .LoadPage + 1 & "/" & .TotalPages 放在上一页，下一页中