主题：[求助]分页加载如何加载全部数据行

各位老师：

我做的是外部SQL数据库，按分页加载示例，进行了AfterOpenProject页加载20条，然后也设置了窗口代码，加载首页、末页、上一页、下一页。请问加载所有数据如何写？我用的是

With DataTables("订单")
      .LoadFilter = "" 
      .Load()
End With

 但只是刷新了下，并不加载所有数据行，请问这个代码该如何写？

补问一句，加载全部数据，分页加载就不再好用了？

狐爸，使用分页加载，如果想通过指定条件筛选数据，例：

Tables("订单").Filter = "[_Identify] In ('" & forms("查询").Controls("ComboBox8").text.replace(" ","','") & "')"

那么如果数据没有加载就筛选不到，如何能让它动态能查询得到呢？

狐爸：

我使用分页加载后，为何判断用户分组的可视化授权不好用了呢，

LoadUserSetting使用了以下代码部份失效了

If  User.Group="操作者" Then    
    Dim dr As DataRow
    dr = DataTables("hr").Find("姓名= '" & User.Name & "'")
If dr IsNot Nothing Then
    DataTables("费用管理").LoadFilter ="[费用项目申请_申请部门]='" & dr("部门") & "' Or [申请隶属部门] Like '%" & dr("部门") & "%' Or [费用归属隶属部门] Like '%" & dr("部门") & "%'Or [费用项目申请_申请部门] Like '%" & dr("部门") & "%' Or [费用项目申请_费用归属部门] Like '%" & dr("部门") & "%'"
    DataTables("费用管理").Load()

该用户虽属操作者组，但也能加载到所有数据，需要在哪再控制数据权限呢？狐爸求解。