主题：动态加载表，怎么分页加载

老师，我全部是动态加载表，默认都没加载，打开前先判断表是否加载，没加载先加载表，

If DataTables.Contains("表A") = False
    DataTables.Load("表A")
End If

1、有部分表数据量大，现在想弄分页，没研究出来，请指导，全部采用的外部数据源，窗口表。

2、查询的时候，怎么查询呢？

---

以下内容是专门发给有点甜浏览

---

老师，根据我实际情况做了个示例在一楼麻烦看看，进项piao录入表默认是不加载的，使用的我的数据源，就给你发的定员，感谢。

分页后，列宽就和原来不一样了怎么处理呢？

Dim cvs As String = Tables("订单").GetColVisibleWidth()
Tables("窗口名_Table1").SetColVisibleWidth(cvs)

在家手机上学习看到关联表有这种用法，就不知道窗口表是否适用。

Dim cvs As String = Tables("订单").GetColVisibleWidth()
Tables("窗口名_Table1").SetColVisibleWidth(cvs)

老师这样写，原来关于列的属性都变了，比如我是居中的，不居中了，设置了小数点位数的，不对了，绘制了列格式的，也没有了，

老师，直接绑定主表"进项piao录入"，初始没加载表，怎么控制加载量和查询呢？

If DataTables.Contains("订单") = False
    DataTables.Load("订单")
End If

老师，分页后以前做的授权没法用了，之前是根据列“组织机构”，做的授权的集合，加载的时候根据授权来加载对应的数据，现在分页后怎么来根据表单授权来加载呢？

以前是弄了内部函数，根据授权来加载的

Dim dt As DataTable=args(0)
Tables("账号密码").Filter = ""

Dim dr As DataRow=DataTables("账号密码").sqlFind("账号='" & _UserName  & "'")
If dr Is Nothing  Then Exit Function

Dim lst1 As new List(of String)
Dim lst2 As new List(of String)
lst1.AddRange(dr("加载集合").split(","))

'加载范围
Dim filt As String = Nothing
For Each ls As String In lst1
    If filt<>"" Then filt=filt & " OR "
    filt=filt & "所属机构= '" & ls & "'"
Next
'加载
dt.LoadFilter=filt
dt.Load

那分页这儿这样调用这个内部函数，结果还是不正确呢？

 

Functions.Execute("单表加载",DataTables("中标统计"))

With DataTables("中标统计")
    .LoadFilter = "" '清除加载条件
    .LoadPage = 0 '加载第一页
    .LoadTop =  20 '每页10行
    .LoadOver =  "项目编码"
    .LoadReverse = True
    .Load()
    e.Form.Controls("TextBox1").Value = 1 & "/" & .TotalPages
End  With