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 WithNext