- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]关于分页加载 无反应问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90157)
-- 发布时间：2016/9/6 17:58:00
-- [求助]关于分页加载 无反应问题
我成交管理页面采用了分页加载，参考的帮助文档，没有添加任何代码，在执行的时候 点击下一页有反应 再点击页码有反应，但内容没有变，另一个表也是一样的代码 但是只有4页 就能正常的换页，请问这是什么问题
-- 发布时间：2016/9/6 18:00:00
--
如图
此主题相关图片如下：111.png
此主题相关图片如下：112.png
-- 发布时间：2016/9/6 18:01:00
--
按什么分页的，分析分页依据对应的数据
-- 发布时间：2016/9/6 18:08:00
--
数据库的表名是 成交录入 fox里表名是 成交管理 代码如下： 其他上下页代码与帮助一样
\'分页加载
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.Cfont-family: Verdana;">cmd.CommandText = "SELECT DISTINCT * Fr om {成交录入}"
dt = cmd.ExecuteReader()
\'加载第一页数据
With DataTables("成交管理")
.LoadFilter = "" \'清除加载条件
.LoadPage = 0 \'加载第一页
.LoadTop = 10 \'每页10行
.Load()
e.Form.Controls("TextBox1").Value = 1 & "/" & .TotalPages
End With
-- 发布时间：2016/9/6 20:22:00
--
试试
With DataTables("成交管理")
.LoadFilter = "" \'清除加载条件
.LoadTop = 10 \'每页10行 .LoadPage = 0 \'加载第一页
.Load()
e.Form.Controls("TextBox1").Value = 1 & "/" & .TotalPages
End With