| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 权限失效 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=192508) |
| -- 作者：nuoyan89 -- 发布时间：2024/6/27 12:36:00 -- 权限失效 老师，我想非以下两个组别人员不能编辑所有列，并且以下两个组别的人员在下面没有出现的列不能编辑，现在以下代码生产部文员能编辑整个表的列，代码写在：prepareedit事件中的 If "," & _UserGroup & "," Like "*,管理员,*" OrElse "," & _UserGroup & "," Like "*,生产部文员,*" Then If "," & _UserGroup & "," Like "*,管理员,*" Then lst.AddRange({"毛坯编码", "备注", "姓名", "月份", "班次", "扫描日期", "加工时间", "合格品", "批次序号", "结果", "类型", "毛坯产地", "成品编码", "成品描述", "加工工序", "加工内容", "使用设备", "完成数量", "生产批次", "循环时间", "实际时间", "线别", "实际加工日期", "是否首件", "加工次数", "年", "月", "日", "扫码类型", "配刀单号", "制单人员", "制单日期", "加工单价", "加工金额", "审核人员", "审核日期"}) If "," & _UserGroup & "," Like "*生产部文员*" Then lst.AddRange({"备注", "姓名", "班次", "扫描日期", "合格品", "完成数量", "循环时间", "实际时间", "线别", "实际加工日期", "加工次数", "扫码类型", "配刀单号", "加工单价", "加工金额", "审核人员", "审核日期", "生产型号", "毛坯状态", "加工时间", "加工单价", "加工金额", "循环时间", "结果", "类型", "月份", "使用设备"}) Else e.cancel = True End If
|
| -- 作者：nuoyan89 -- 发布时间：2024/6/27 13:28:00 -- 找到原因了 |