Dim r As Row = Tables("权限").current
If r Is Nothing Then Return
Dim ctl As WinForm.Control = e.Sender
Select Case ctl.BindingField
Case "权限.第一列", "权限.第二列", "权限.第三列", "权限.第四列", "权限.第五列", "权限.第六列", "权限.第七列"
If User.Group = "业务经理" Then
ctl.ReadOnly = BooleanEnum.True '禁止编辑
Else
ctl.ReadOnly = BooleanEnum.False '允许编辑
End If
Case "权限.审核", "权限.第批准", "权限.第意见"
If User.Group = "业务员" AndAlso r("审核") = False Then
ctl.ReadOnly = BooleanEnum.False '禁止编辑
Else
ctl.ReadOnly = BooleanEnum.True '允许编辑
End If
End Select
加好友 
发短信
Post By：2022/12/6 16:54:00 [只看该作者]
