以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  分页加载后到指定页  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=185888)

--  作者:cd_tdh
--  发布时间:2023/3/23 15:24:00
--  分页加载后到指定页
老师,分页加载后,在:第几页输入数字,点击确定跳转到指定的页,哪儿问题

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20230323152236.jpg
图片点击可在新窗口打开查看
确定按钮代码如下:
With DataTables("审核流程示意表二")
    If .LoadPage < .TotalPages - 1 Then
        .LoadPage = e.Form.Controls("第几页").Value \'加载页
        .LoadTop = 20 \'每页20行
        .LoadOver = "_Identify" \'加载依据列
        .Load()
        e.Form.Controls("显示").Value = (.LoadPage + 1) & "/" & .TotalPages
    End If
End With

--  作者:有点蓝
--  发布时间:2023/3/23 15:29:00
--  
.LoadPage = cint(e.Form.Controls("第几页").Value)
--  作者:cd_tdh
--  发布时间:2023/3/23 15:34:00
--  
点击确定还是没变化
--  作者:有点蓝
--  发布时间:2023/3/23 15:35:00
--  
说明没有这么多页
--  作者:cd_tdh
--  发布时间:2023/3/23 15:41:00
--  
If .LoadPage < .TotalPages - 1 Then
我发现有这个判断就不执行后面的代码,这个判断有错??

--  作者:有点蓝
--  发布时间:2023/3/23 15:45:00
--  
If cint(e.Form.Controls("第几页").Value) < .TotalPages - 1 Then
--  作者:cd_tdh
--  发布时间:2023/3/23 16:01:00
--  
对了