以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  同一个数据表，不同用户加载不同的列  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=143050)
--  作者：wtl123456
--  发布时间：2019/11/12 15:31:00
--  同一个数据表，不同用户加载不同的列
If _UserGroup = "管理员"  Then
    Filter =  filter
Else
    e.Form.controls("计划明细4").Table.DataTable.LoadPage = 0
    e.Form.controls("计划明细4").Table.DataTable.LoadFilter = filter
    e.Form.controls("计划明细4").Table.DataTable.Load
End If
 我想实现当用户名等于管理员的时候加载所有的 ，当用户等于刀具库或者 配刀库时只加载刀具数据列 代码不为空的 
--  作者：有点蓝
--  发布时间：2019/11/12 15:58:00
--  
接着上面的代码之后
If _UserGroup = "管理员"  Then
e.Form.controls("计划明细4").Table.SetColVisibleWidth(xxx指定管理员可见列
else
e.Form.controls("计划明细4").Table.SetColVisibleWidth(xxx指定非管理员可见列
end if
--  作者：wtl123456
--  发布时间：2019/11/13 14:48:00
--  

图片点击可在新窗口打开查看此主题相关图片如下：微信图片_20191113144224.png
图片点击可在新窗口打开查看
就是说我这个出入库明细表里面包含所有仓库的出入库记录，当用户组等于刀具库或者配刀库登录查询时只显示刀具代码 这一列不为空的 因为这一列是刀具特有的
--  作者：有点蓝
--  发布时间：2019/11/13 15:09:00
--  
dim filter as string
If _UserGroup = "刀具库" orelse _UserGroup = "配刀库" Then
    Filter =  "刀具代码 is not null"
End If
    e.Form.controls("计划明细4").Table.DataTable.LoadPage = 0
    e.Form.controls("计划明细4").Table.DataTable.LoadFilter = filter
    e.Form.controls("计划明细4").Table.DataTable.Load