| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 分页按钮 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=141390) |
| -- 作者：yetle -- 发布时间：2019/9/28 9:10:00 -- 分页按钮 移动端做分页按钮效果： 记录行1-10在一个页面页面显示的按钮 记录行11-20在一个页面页面显示的按钮 记录行21-30在一个页面页面显示的按钮 记录行31-40在一个页面页面显示的按钮 * * * 记录行91-100在一个页面页面显示的按钮 记录行100以上在一个页面页面显示的按钮 10个点选按钮 这个怎么实现？
|
| -- 作者：有点蓝 -- 发布时间：2019/9/28 9:20:00 -- 10个按钮和1个按钮的用法没有区别，改改查询的SQL即可 按钮1 cmd.CommandText = "Select * From (Select Row_Number() Over(Order by 订单.订单编号 desc ) As RowNum,订单.订单编号,日期,客户,Sum(数量) As 数量,sum(数量*单价) As 金额" cmd.CommandText = cmd.CommandText & " From 订单 Left JOIN 订单明细 ON 订单明细.订单编号 = 订单.订单编号 Group By {订单}.订单编号,日期,客户) As a " cmd.CommandText = cmd.CommandText & " Where RowNum >= " & 1 & " And RowNum <= " & 10 Dim dt As DataTable = cmd.ExecuteReader 按钮2 cmd.CommandText = "Select * From (Select Row_Number() Over(Order by 订单.订单编号 desc ) As RowNum,订单.订单编号,日期,客户,Sum(数量) As 数量,sum(数量*单价) As 金额"
cmd.CommandText = cmd.CommandText & " From 订单 Left JOIN 订单明细 ON 订单明细.订单编号 = 订单.订单编号 Group By {订单}.订单编号,日期,客户) As a " cmd.CommandText = cmd.CommandText & " Where RowNum >= " & 11 & " And RowNum <= " & 20 Dim dt As DataTable = cmd.ExecuteReader |