- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]不是从数据库分页加载，而从datatable分页加载到table,怎么写呢 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=38718)
-- 发布时间：2013/8/5 11:44:00
-- [求助]不是从数据库分页加载，而从datatable分页加载到table,怎么写呢
就是假如datatable加载了数据库中某表的所有数据，我要在窗体中分页显示！从datatable查询数据也能分页显示
[此贴子已经被作者于2013-8-5 11:46:45编辑过]
-- 发布时间：2013/8/5 11:52:00
--
可以的，留个大家做作业，大家练练手。
-- 发布时间：2013/8/5 12:11:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目980.foxdb |
-- 发布时间：2013/8/5 13:19:00
--
[此贴子已经被作者于2013-8-5 13:25:44编辑过]
-- 发布时间：2013/8/5 23:16:00
--
给楼主说说关键代码，比如加载第n页，每页5行
Dim dt As DataTable = DataTables("表A")
Dim st As Integer = math.min(n * 5 ,dt.DataRows.count -1)
Dim Ed As Integer = math.min((n+1) * 5 - 1,dt.DataRows.count -1)
st = DataTables("表A").DataRows(st)("_Identify")
ed = DataTables("表A").DataRows(ed)("_Identify")
Tables("窗口1_Table1").filter = "[_Identify] >= " & st & " And [_Identify] <= " & ed
-- 发布时间：2013/10/20 22:43:00
--
以下是引用狐狸爸爸在2013-8-5 12:11:00的发言：
是开发版的，下载以后再看吧
| 下载信息 [文件大小：460.0 KB 下载次数：8] | |
| 点击浏览该文件:管理项目980.foxdb |