以下代码实现窗口控件的权限控制，数据表权限控制代码如何编写？求老师指教！谢谢！
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
加好友 
发短信
Post By：2015/3/27 10:20:00 [只看该作者]
