[求助]分页加载问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]分页加载问题

共有6638人关注过本帖树形打印复制链接主题：[求助]分页加载问题

pcxjxjhkw

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1791 积分：12764 威望：0 精华：1 注册：2013/7/18 15:51:00

Post By：2015/8/29 19:32:00 [显示全部帖子]

有其它变通方法没?????/ 急呀

pcxjxjhkw

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1791 积分：12764 威望：0 精华：1 注册：2013/7/18 15:51:00

Post By：2015/8/29 20:14:00 [显示全部帖子]

datetable已经生成

一是不需要加载树，二是表在窗口中，如何加载到窗口的表中

怎么办？

[此贴子已经被作者于2015/8/29 20:15:00编辑过]

pcxjxjhkw

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1791 积分：12764 威望：0 精华：1 注册：2013/7/18 15:51:00

Post By：2015/8/29 20:19:00 [显示全部帖子]

加载成功

'按条件动态加载数据
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = sql
dt = cmd.ExecuteReader()

'''分页加载
With Tbl.DataTable   ‘’窗口中的副表
    .LoadFilter = "" '清除加载条件
    '.LoadFilter = tj
    .LoadOver = "登记时间"              ''"_Identify"   '' "信访编号" '分页依据
    .LoadOrder = "登记时间" '排序方式
    .LoadPage = 0 '加载第一页
    .LoadTop = e.Form.Controls("每页条数").Value    '每页?行数据
    .Load()
    ' e.Form.Controls("合计页数").Value = "共 " & .SQLCompute("count(*)",tj) & " 条数据,共 " & .TotalPages & " 页"
    ' e.Form.Controls("页数").Value = "第 " & .LoadPage +1 & " 页"
    Tbl.LeftVisibleCol = 0
    '
End With

[此贴子已经被作者于2015/8/29 20:19:31编辑过]