| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 数据加载如果数据多于10000 行加载10000行 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=124777) |
| -- 作者：weibu -- 发布时间：2018/9/13 15:56:00 -- 数据加载如果数据多于10000 行加载10000行 老师我想修改代码加上如果筛选符合条件的数据 大于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编辑过]
|
| -- 作者：有点甜 -- 发布时间：2018/9/13 16:55:00 -- 加上红色代码即可
DataTables("溯源码").loadTop = 10000
DataTables("溯源码").loadfilter = Filter DataTables("溯源码").load
http://www.foxtable.com/webhelp/scr/1928.htm
|