Dim ctl As WinForm.Control = e.Sender
Select Case ctl.BindingField
Case "权限.第一列", "权限.第二列", "权限.第三列", "权限.第四列", "权限.第五列", "权限.第六列", "权限.第七列"
If User.Group = "业务员" Then
ctl.ReadOnly = BooleanEnum.False '允许编辑
Else
ctl.ReadOnly = BooleanEnum.True '禁止编辑
End If
Case "权限.审核", "权限.第批准", "权限.第意见"
If User.Group = "业务经理" Then
ctl.ReadOnly = BooleanEnum.False '允许编辑
Else
ctl.ReadOnly = BooleanEnum.True '禁止编辑
End If
End Select
看帮助做，结果失效，都可以编辑，是哪里出问题？
加好友 
发短信
Post By：2022/12/6 16:33:00 [只看该作者]
