以下代码实现窗口控件的权限控制,数据表权限控制代码如何编写?求老师指教!谢谢!
Dim ctl As WinForm.Control = e.Sender
Select Case ctl.BindingField
Case "CSsmdj.BCNo", "CSsmdj.签发日期","CSsmdj.YBCNo"
If _UserGroup = "签证机构" Then
ctl.ReadOnly = BooleanEnum.False '允许编辑
Else
ctl.ReadOnly = BooleanEnum.True '禁止编辑
End If
Case "CSsmdj.GB307", "CSsmdj.GB301", "CSsmdj.登记机关", "CSsmdj.登记日期"
If _UserGroup = "公安户籍" Then
ctl.ReadOnly = BooleanEnum.False '允许编辑
Else
ctl.ReadOnly = BooleanEnum.True '禁止编辑
End If
End Select