标题：sql语句生成的表，这样写点下一页，没有反应，是什么原因？

1楼

xxfoxtable 发表于：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楼

有点蓝 发表于：2024/4/15 22:18:00

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

3楼

xxfoxtable 发表于：2024/4/15 22:35:00

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

4楼

有点蓝 发表于：2024/4/15 22:58:00

麻烦完整代码

5楼

xxfoxtable 发表于：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楼

有点蓝 发表于：2024/4/16 8:32:00

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

……

Tables("分页导出_table1").DataSource = cmd.ExecuteReader

With DataTables("分页导出_table1")
    .LoadFilter = Vars("查询条件")
    .LoadTop = 20
    .LoadPage = 0
    .Load()
End With

7楼

xxfoxtable 发表于：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楼

有点蓝 发表于：2024/4/16 13:59:00

加上主键

cmd.CommandText = "Select [_identify],货号, 品

共8 条记录, 每页显示 10 条, 页签: [1]