Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何实现多个查询表分页显示


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

主题：如何实现多个查询表分页显示
帅哥哟，离线，有人找我吗？
狐表（小白）
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：366 积分：3946 威望：0 精华：0 注册：2019/9/17 10:06:00 		如何实现多个查询表分页显示  发帖心情 Post By：2019/11/6 8:06:00 [显示全部帖子]

老师，你好！有三个SQL数据库视图生成的查询表，如何实现在统一窗口不同面板中分页？并利用计时器来循环执行控制三个表自动执行翻页，请详细说明。谢谢！

 回到顶部
帅哥哟，离线，有人找我吗？
狐表（小白）
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：366 积分：3946 威望：0 精华：0 注册：2019/9/17 10:06:00 		  发帖心情 Post By：2019/11/6 9:19:00 [显示全部帖子]

afterload  和  按钮“下一页”执行报错，不存在“****”的datatable。这个两个地方要怎么修改？谢谢！

 回到顶部
帅哥哟，离线，有人找我吗？
狐表（小白）
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：366 积分：3946 威望：0 精华：0 注册：2019/9/17 10:06:00 		  发帖心情 Post By：2019/11/6 10:15:00 [显示全部帖子]

查询表1(今日计划明细)生成语句：
SELECT *  F ROM [KB_今日未完明细]


窗口（看板）afterload代码:
With DataTables("今日计划明细")
    .LoadFilter = "" '清除加载条件
    .LoadPage = 0 '加载第一页
    .LoadTop = 6 '每页6行
    .Load()
    e.Form.Controls("TextBox").Value = 1 & "/" & .TotalPages
End With


计时器代码：
Dim bn As WinForm.Button = e.Form.Controls("Button7")
If bn.Name = "" Then
    bn.PerformClick()
Else
    bn.PerformClick()
End If

按钮（“button7”）“下一页”代码”：
With DataTables("今日计划明细")
If .LoadPage < .TotalPages - 1
.LoadPage = .LoadPage  + 1
Else
.LoadPage = 0
End If
.Load()
e.Form.Controls("TextBox5").Value = (.LoadPage + 1) & "/" & .TotalPages
End With

上次用的access数据做的测试没有问题了，导入实际SQL数据应用发现要修改。麻烦老师了，边学边实践问题多。
[此贴子已经被作者于2019/11/6 10:16:12编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
狐表（小白）
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：366 积分：3946 威望：0 精华：0 注册：2019/9/17 10:06:00 		  发帖心情 Post By：2019/11/6 11:40:00 [显示全部帖子]

afterload代码：
Tables("看板_Table1").Fill ("Select [单线别],[订单编号],[产品型号],[数量] Fr om [KB_今日计划明细]","zzkb",True)
With DataTables("看板_Table1").LoadFilter = ""   ‘清除加载条件
DataTables("看板_Table1").LoadPage = 0      ‘加载第一页
DataTables("看板_Table1").LoadTop = 6        ‘每页6行
DataTables("看板_Table1").Load()
e.Form.Controls("TextBox5").Value = 1 & "/" & .Totalpages           
End With
 
红色部分代码怎么写可以在控件（“textbox5”）显示当前第几页/共几页？谢谢！
[此贴子已经被作者于2019/11/6 11:40:58编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
狐表（小白）
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：366 积分：3946 威望：0 精华：0 注册：2019/9/17 10:06:00 		  发帖心情 Post By：2019/11/6 14:28:00 [显示全部帖子]


老师，代码更改后不报错，但是“textbox5”显示的结果:第1页/共-1页，什么问题？

afterload代码：
Tables("看板_Table1").Fill ("Select [单线别],[订单编号],[产品型号],[数量] Fr om [KB_今日计划明细]","zzkb",True)
With DataTables("看板_Table1").LoadFilter = ""   ‘清除加载条件
DataTables("看板_Table1")
.LoadPage = 0      ‘加载第一页
.LoadTop = 6        ‘每页6行
.Load()
e.Form.Controls("TextBox5").Value = "第" & 1 & "页/共" & .Totalpages           
End With

“下一页”按钮“button7”的代码需要更改吗？
With DataTables("看板_Table1")
    If .LoadPage < .TotalPages - 1
        .LoadPage = .LoadPage  + 1
    Else
        .LoadPage = 0
    End If
    .Load()
    e.Form.Controls("TextBox").Value = "第" & 1 & "页/共" & .Totalpages
End With

谢谢！
   
 回到顶部
帅哥哟，离线，有人找我吗？
狐表（小白）
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：366 积分：3946 威望：0 精华：0 注册：2019/9/17 10:06:00 		  发帖心情 Post By：2019/11/6 14:50:00 [显示全部帖子]

只显示出了6行数据，剩余的没显示

 回到顶部
帅哥哟，离线，有人找我吗？
狐表（小白）
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：366 积分：3946 威望：0 精华：0 注册：2019/9/17 10:06:00 		  发帖心情 Post By：2019/11/6 16:06:00 [显示全部帖子]

老师，代码改后提示：“select语句执行错误，请检查语句和数据源设置”；我把所有代码发给你你给看看到底哪里写的不对。自从用acc数据源测试方案可行后，转了服务器数据源问题不断；就这几个代码，卡了一天了。
1、在窗体中建立了一个SQLQuery型的table,然后在窗体（“看板”）的afterload事件里用FILL的方法从sqlsever数据源（“zzkb”）视图取数据生成查询数据表（“table1”）
用按钮“bottom1”（下一页）进行执行循环翻页控制，另外用一个“textbox1”来显示这张查询表的当前页和总页数；然后用计时器来控制“bottom1”来循环显示，以下是我的代码：

2、afterload代码：
e.Form.TimerEnabled = True  ‘启动计时器
Tables("看板_Table1").Fill ("Select [单线别],[订单编号],[产品型号],[数量] Fr om [KB_今日计划明细]","zzkb",True)       ‘从数据库取数
With DataTables("看板_Table1")
.LoadFilter = ""   '清除加载条件
.LoadPage = 0      '加载第一页
.LoadTop = 6        '每页6行
.Load()
e.Form.Controls("TextBox1").Value = "第" & 1 & "页/共" & .Totalpages            ‘显示页数状态
End With

3、计时器代码：
Dim bn As WinForm.Button = e.Form.Controls("Button1")
If bn.Name = "" Then       
    bn.PerformClick()
Else
    bn.PerformClick()
End If

4、“bottom1”下一页代码：
With DataTables("看板_Table1")
    If .LoadPage < .TotalPages - 1
        .LoadPage = .LoadPage  + 1
    Else
        .LoadPage = 0
    End If
    .Load()
    e.Form.Controls("TextBox1").Value = "第" & 1 & "页/共" & .Totalpages
End With
 回到顶部
帅哥哟，离线，有人找我吗？
狐表（小白）
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：366 积分：3946 威望：0 精华：0 注册：2019/9/17 10:06:00 		  发帖心情 Post By：2019/11/6 16:25:00 [显示全部帖子]

总页数还是-1

图片点击可在新窗口打开查看此主题相关图片如下：搜狗截图20191106162426.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
狐表（小白）
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：366 积分：3946 威望：0 精华：0 注册：2019/9/17 10:06:00 		  发帖心情 Post By：2019/11/6 17:37:00 [显示全部帖子]

已解决
[此贴子已经被作者于2019/11/9 17:27:34编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
狐表（小白）
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：366 积分：3946 威望：0 精华：0 注册：2019/9/17 10:06:00 		  发帖心情 Post By：2019/11/6 19:01:00 [显示全部帖子]

谢谢老师，非常感谢！！！图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看

 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 5 次数据查询