以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  权限异常  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=144520)

--  作者：有点蓝 --  发布时间：2019/12/23 13:38:00 --   msgbox(_UserGroup) 显示什么内容？要实现什么判断逻辑？

--  作者：有点蓝 --  发布时间：2019/12/23 14:40:00 --   If "," & _UserGroup & "," Like "*,销售,*" Then

--  作者：有点蓝 --  发布时间：2019/12/23 15:49:00 --   不要使用elseif，全部独立使用if end if

--  作者：有点蓝 --  发布时间：2019/12/23 16:09:00 --   Dim lst As new List(of String) If _UserGroup Like "*计划员*" Then lst.AddRange({"确认数量","备货地址"}) If "," & _UserGroup & "," Like "*,销售计划,*" Then lst.AddRange({"计划确认交期","确认数量"}) If "," & _UserGroup & "," Like "*,销售,*" Then lst.AddRange({"订单要求","订单数量","备注"}) e.cancel = Not lst.contains(e.Col.Name)