以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  sql语句生成的表,这样写点下一页,没有反应,是什么原因?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=191418)

--  作者:xxfoxtable
--  发布时间:2024/4/15 21:49:00
--  sql语句生成的表,这样写点下一页,没有反应,是什么原因?
With DataTables("分页导出_table1")
    If .LoadPage < .TotalPages - 1 Then
        .LoadPage = .LoadPage + 1
        e.Form.Controls("TextBox1").Text = .LoadPage + 1
        .Load()
    End If
End With
数据库是sql2008

--  作者:有点蓝
--  发布时间:2024/4/15 22:18:00
--  
sql语句生成的表】怎么生成的?具体代码?
--  作者:xxfoxtable
--  发布时间:2024/4/15 22:35:00
--  
 "se l  ect 货号, 品名, 封装, 厂商, 数量, 单价, 金额, 仓库, 区域, 电话, 供应商QQ, 公司名称, 备注, 查价员, 修改时间, 库存下限, 最近出货时间, 倍数 from {销售} where " & Vars("查询条件")
--  作者:有点蓝
--  发布时间:2024/4/15 22:58:00
--  
麻烦完整代码
--  作者: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

--  作者:有点蓝
--  发布时间:2024/4/16 8:32:00
--  
生成表格后至少要做一次分页

……
Tables("分页导出_table1").DataSource = cmd.ExecuteReader
With DataTables("分页导出_table1")
    .LoadFilter = 
Vars("查询条件")
    .LoadTop = 
20
    .LoadPage = 
0
    .Load()

End
 With

--  作者: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


--  作者:有点蓝
--  发布时间:2024/4/16 13:59:00
--  
加上主键

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