看完了，自己写的代码，调试有问题：看了一下代码应该是这一行有问题 Case <>"物料编码","物料名称","物料规格","单位"
规格确认没有打勾，物料名称和物料规格，单位都不能编辑，只能编辑物料编码
请各位高手指教，代码太长，能优化吗？
Tables("物料总表").Cols("单价").Visible=False
Tables("物料总表").Cols("单价确认").Visible=False
Select Case user.Group
Case "bom"
If e.Row("规格确认")=True Then
e.Cancel=True
ElseIf e.Row("规格确认")=False Then
Select Case e.Col.Name
- Case <>"物料编码","物料名称","物料规格","单位"
e.Cancel=True
End Select
End If
Case "ck"
Tables("物料总表").Cols("单价").Visible=True
Tables("物料总表").Cols("单价确认").Visible=True
If e.Row("单价确认")=True Then
e.Cancel=True
Else
Select Case e.Col.Name
Case <> "单价"
e.Cancel=True
End Select
End If
Case <>"gl","BOM","Ck"
If user.Group<>"GL" Then
Select Case e.Col.Name
Case "规格确认","单价确认"
e.Cancel=True
End Select
ElseIf user.Group="gl"
Tables("物料总表").Cols("单价").Visible=True
Tables("物料总表").Cols("单价确认").Visible=True
e.Cancel=True
End If
End Select
加好友 
发短信
Post By：2015/6/1 12:05:00 [只看该作者]
此主题相关图片如下：权限管理.jpg