Foxtable(狐表) → 用户栏目 → 专家坐堂 → sql语句生成的表，这样写点下一页，没有反应，是什么原因？


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

主题：sql语句生成的表，这样写点下一页，没有反应，是什么原因？
帅哥哟，离线，有人找我吗？
xxfoxtable
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1696 积分：15819 威望：0 精华：0 注册：2017/6/1 23:12:00 		sql语句生成的表，这样写点下一页，没有反应，是什么原因？  发帖心情 Post By：2024/4/15 21:49:00 [只看该作者]

With DataTables("分页导出_table1")
    If .LoadPage < .TotalPages - 1 Then
        .LoadPage = .LoadPage + 1
        e.Form.Controls("TextBox1").Text = .LoadPage + 1
        .Load()
    End If
End With
数据库是sql2008
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106178 积分：540007 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/4/15 22:18:00 [只看该作者]

【sql语句生成的表】怎么生成的？具体代码？

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


加好友 发短信
等级：七尾狐 帖子：1696 积分：15819 威望：0 精华：0 注册：2017/6/1 23:12:00 		  发帖心情 Post By：2024/4/15 22:35:00 [只看该作者]

 "se l  ect 货号, 品名, 封装, 厂商, 数量, 单价, 金额, 仓库, 区域, 电话, 供应商QQ, 公司名称, 备注, 查价员, 修改时间, 库存下限, 最近出货时间, 倍数 from {销售} where " & Vars("查询条件")

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


加好友 发短信
等级：超级版主 帖子：106178 积分：540007 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/4/15 22:58:00 [只看该作者]

麻烦完整代码

 回到顶部
帅哥哟，离线，有人找我吗？
xxfoxtable
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1696 积分：15819 威望：0 精华：0 注册：2017/6/1 23:12:00 		  发帖心情 Post By：2024/4/15 23:45:00 [只看该作者]

Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "Sel ect 货号, 品名, 封装, 厂商, 数量, 单价, 金额, 仓库, 区域, 电话, 供应商QQ, 公司名称, 备注, 查价员, 修改时间, 库存下限, 最近出货时间, 倍数 From {销售} Where " & Vars("查询条件")
Tables("分页导出_table1").DataSource = cmd.ExecuteReader
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106178 积分：540007 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/4/16 8:32:00 [只看该作者]

生成表格后至少要做一次分页

……
Tables("分页导出_table1").DataSource = cmd.ExecuteReader
With DataTables("分页导出_table1")
    .LoadFilter = Vars("查询条件")
    .LoadTop = 20
    .LoadPage = 0
    .Load()
End With
 回到顶部
帅哥哟，离线，有人找我吗？
xxfoxtable
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1696 积分：15819 威望：0 精华：0 注册：2017/6/1 23:12:00 		  发帖心情 Post By：2024/4/16 12:51:00 [只看该作者]

 我做分页了，还是不行

With DataTables("分页导出_table1")
    .LoadFilter = Vars("查询条件")
    .LoadPage = 0 '加载第一页
    .LoadTop = 8000 '每页30行
    .Load()
End With
e.Form.Controls("TextBox1").Text =1
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106178 积分：540007 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/4/16 13:59:00 [只看该作者]

加上主键

cmd.CommandText = "Select [_identify],货号, 品
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03516 秒, 4 次数据查询