以文本方式查看主题

-  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=98443)
--  作者：baiheinet
--  发布时间：2017/3/30 7:54:00
--  [求助]分页动态加载问题
我在项目

AfterOpenProject


设置
    DataTables.Load("员工")


在员工表

BeforeLoad

设置

With e.DataTable
    .LoadFilter = ""
    .LoadTop = 20
    .LoadPage = 0
    .Load()
End With


请问错在什么地方
--  作者：有点蓝
--  发布时间：2017/3/30 9:08:00
--  
死循环了

AfterOpenProject

With DataTables("员工")
    .LoadFilter = "" 
    .LoadTop = 20
    .LoadPage = 0
    .Load()
End With

去掉BeforeLoad事件代码
--  作者：baiheinet
--  发布时间：2017/3/30 9:31:00
--  
关键是我在

AfterOpenProject

用了
DataTables.Load("授权|项目|员工")

难道要改成
With DataTables("员工")
    .LoadFilter = ""
    .LoadTop = 20
    .LoadPage = 0
    .Load()
End With
With DataTables("授权")
    .LoadFilter = ""
    .LoadTop = 20
    .LoadPage = 0
    .Load()
End With
With DataTables("项目")
    .LoadFilter = ""
    .LoadTop = 20
    .LoadPage = 0
    .Load()
End With

有没有批量的方法
[此贴子已经被作者于2017/3/30 9:32:13编辑过]
--  作者：有点蓝
--  发布时间：2017/3/30 10:17:00
--  
去掉BeforeLoad事件中这句代码：

.Load()
--  作者：baiheinet
--  发布时间：2017/3/30 10:32:00
--  

设置
    DataTables.Load("员工")


在员工表

BeforeLoad

设置

With e.DataTable
    .LoadFilter = ""
    .LoadTop = 20
    .LoadPage = 0
End With


试了 这样不行
--  作者：有点蓝
--  发布时间：2017/3/30 11:36:00
--  
DataTables.Load("员工")这种用法只能在BeforeLoadInnerTable事件设置条件
--  作者：有点色
--  发布时间：2017/3/30 12:00:00
--  

AfterOpenProject事件，必须写分页加载的代码。beforeLoad事件是加载数据的时候触发的，而不是 DataTables.Load 的时候触发的。

 

Dim str As String = "授权|项目|员工"
DataTables.Load(str)
For Each s As String In str.split("|")
    With DataTables(s)
        .LoadFilter = ""
        .LoadTop = 20
        .LoadPage = 0
        .Load()
    End With
Next