Foxtable(狐表)用户栏目专家坐堂 → 分页加载后到指定页


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

主题:分页加载后到指定页

帅哥哟,离线,有人找我吗?
cd_tdh
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3209 积分:21331 威望:0 精华:0 注册:2016/3/28 16:57:00
分页加载后到指定页  发帖心情 Post By: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

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


加好友 发短信
等级:超级版主 帖子:110738 积分:563610 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/3/23 15:29:00 [只看该作者]

.LoadPage = cint(e.Form.Controls("第几页").Value)

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


加好友 发短信
等级:狐精 帖子:3209 积分:21331 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2023/3/23 15:34:00 [只看该作者]

点击确定还是没变化

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


加好友 发短信
等级:超级版主 帖子:110738 积分:563610 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/3/23 15:35:00 [只看该作者]

说明没有这么多页

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


加好友 发短信
等级:狐精 帖子:3209 积分:21331 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2023/3/23 15:41:00 [只看该作者]

If .LoadPage < .TotalPages - 1 Then
我发现有这个判断就不执行后面的代码,这个判断有错??

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


加好友 发短信
等级:超级版主 帖子:110738 积分:563610 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/3/23 15:45:00 [只看该作者]

If cint(e.Form.Controls("第几页").Value) < .TotalPages - 1 Then

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


加好友 发短信
等级:狐精 帖子:3209 积分:21331 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2023/3/23 16:01:00 [只看该作者]

对了

 回到顶部