| 以文本方式查看主题 - 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=26203) |
| -- 作者：blueskyyq -- 发布时间：2012/11/27 10:11:00 -- [求助]请教大家，如何做分页显示？ 有两个表数据基本固定，每个表数据不会超过1000条，我是考虑一次全部加载，然后作个分页显示，而不是分页加载 不知有什么好的方法实现？ [此贴子已经被作者于2012-11-27 10:13:42编辑过]
|
| -- 作者：lin_hailun -- 发布时间：2012/11/27 10:34:00 -- 比如，我要拿到100行到150行的数据。 Dim idxs As String = "" For i As Integer = 100 To 150 idxs = Idxs & "," & DataTables("XXX").DataRows(i)("_Identify") Next Tables("XXX").Filter = "" Tables("XXX").Filter = "_Identify In (" & idxs.Trim(",") & ")" |
| -- 作者：lin_hailun -- 发布时间：2012/11/27 10:37:00 -- 或者。比如，我要拿到100行到150行的数据。 Dim min As Integer = DataTables("XXX").DataRows(100)("_Identify") Dim max As Integer = DataTables("XXX").DataRows(150)("_Identify") Tables("XXX").Filter = "" Tables("XXX").Filter = "_Identify >= " & min & " And _Identify <= " & max) [此贴子已经被作者于2012-11-27 10:37:04编辑过]
|
| -- 作者：blueskyyq -- 发布时间：2012/11/27 10:42:00 -- 谢谢小林 |