以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]请教大家,如何做分页显示?  (http://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
--  
谢谢小林