以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]分页加载指定页数  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=91723)

--  作者:qscwdvefb
--  发布时间:2016/10/17 19:10:00
--  [求助]分页加载指定页数
假设一页20行数据,我想在TextBox上输入页数,然后按button按钮确定跳转到指定页数,请问button里面click事件的代码怎么写?
--  作者:有点蓝
--  发布时间:2016/10/17 21:12:00
--  

With DataTables("订单")
Dim page As Integer = val(Forms("窗口1").Controls("textbox1").text)
    If page >= 0 And page < .TotalPages - 1 Then
        .LoadPage = page
        .Load()
    End If
End With

--  作者:qscwdvefb
--  发布时间:2016/10/21 16:16:00
--  
如何获取当前页数?用label来显示?
--  作者:狐狸爸爸
--  发布时间:2016/10/21 16:29:00
--  
e.form.Controls("label名称") = DataTables("订单").TotalPages
--  作者:有点蓝
--  发布时间:2016/10/21 16:31:00
--  
在TextBox上输入的页数不就是当前页数么

DataTables("订单").LoadPage