Foxtable(狐表)用户栏目专家坐堂 → 权限设置


  共有2067人关注过本帖树形打印复制链接

主题:权限设置

美女呀,离线,留言给我吧!
nuoyan89
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:524 积分:3642 威望:0 精华:0 注册:2020/10/9 8:45:00
权限设置  发帖心情 Post By:2024/2/19 9:45:00 [只看该作者]

老师,我想让非以下人员对此表只有查看权限,无任何编辑权限,但是目前按照以下设置的除非以下所设置的其他人员反而可以编辑整个表,请帮忙看看,谢谢

Dim lst As new List(of String)
If "," & _UserGroup & "," Like "*,管理员,*" Then lst.AddRange({"材料编码", "材料描述", "库位", "总库存数", "单位", "备注", "规格型号", "可用结存", "最小起订量", "采购周期", "工装代码", "存放位置", "文件管理", "上传人员", "上传日期", "图纸", "线别", "目前状态"})
If "," & _UserGroup & "," Like "*,生产部文员,*" Then lst.AddRange({"材料编码", "材料描述", "库位", "总库存数", "单位", "备注", "规格型号", "可用结存", "最小起订量", "采购周期", "工装代码", "存放位置", "文件管理", "上传人员", "上传日期", "图纸", "线别", "目前状态"})
e.cancel = Not lst.contains(e.Col.Name)

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111409 积分:567115 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/2/19 9:57:00 [只看该作者]

意思是管理员和生产部文员可以编辑集合里的列,其它人员任何列都不能编辑?

 回到顶部
美女呀,离线,留言给我吧!
nuoyan89
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:524 积分:3642 威望:0 精华:0 注册:2020/10/9 8:45:00
  发帖心情 Post By:2024/2/19 11:13:00 [只看该作者]

是的,就是想要二楼的那个结果,只是一楼的那个设置只能对管理员和生产部文员,其他人员却是都能编辑
[此贴子已经被作者于2024/2/19 11:14:43编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111409 积分:567115 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/2/19 11:15:00 [只看该作者]

全局代码:
public lst As new List(of String)

登录窗口确定按钮,判断登录成功后加上以下代码
If "," & _UserGroup & "," Like "*,管理员,*" Then lst.AddRange({"材料编码", "材料描述", "库位", "总库存数", "单位", "备注", "规格型号", "可用结存", "最小起订量", "采购周期", "工装代码", "存放位置", "文件管理", "上传人员", "上传日期", "图纸", "线别", "目前状态"})
If "," & _UserGroup & "," Like "*,生产部文员,*" Then lst.AddRange({"材料编码", "材料描述", "库位", "总库存数", "单位", "备注", "规格型号", "可用结存", "最小起订量", "采购周期", "工装代码", "存放位置", "文件管理", "上传人员", "上传日期", "图纸", "线别", "目前状态"})

prepareedit事件
If "," & _UserGroup & "," Like "*,管理员,*" orelse "," & _UserGroup & "," Like "*,生产部文员,*" then
e.cancel = Not lst.contains(e.Col.Name)
else
e.cancel = true
end if

 回到顶部