全局代码：
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
加好友 
发短信
Post By：2024/2/19 9:45:00 [只看该作者]
