老师我想修改代码加上如果筛选符合条件的数据 大于1万行，那么仅加载1万行。一万行内加载全部。加载的数据为最近日期的数据。Dim dr As DataRow = DataTables("用户信息").find("用户名 = '" & 用户名 & "'") '找到当前登录者所在的行
Dim filter As String = "1=2"
If dr("职位") = "管理者" Then
Dim drs = DataTables("部门信息").Select("层级 like '" & dr("层级") & "%'")
For Each cdr As DataRow In drs
Filter &= " or 当前所在部门 = '" & cdr("所属部门") & "'And 是否绑码 = 1"
Next
Else If dr("职位") = "职员" Then
Filter = "当前所在部门 = '" & dr("所属部门") & "'And 是否绑码 = 1"
End If
DataTables("溯源码").loadfilter = Filter
DataTables("溯源码").load
[此贴子已经被作者于2018/9/13 16:18:50编辑过]
加好友 
发短信
Post By：2018/9/13 15:56:00 [只看该作者]
