我根据帮助文件录入窗口与权限管理中的提示,想实现根据不同用户组对窗口的录入编辑有不同权限(即管理用户可以在窗体编辑录入数据,普通用户没有编辑权限),把帮助文件这段代码:Dim
ctl As WinForm.Control =
e.Sender
Select
Case ctl.BindingField
Case
"表A.第一列", "表A.第二列",
"表A.第三列"
If User.Name =
"张三"
Then
ctl.ReadOnly =
BooleanEnum.False
'允许编辑
Else
ctl.ReadOnly =
BooleanEnum.True
'禁止编辑
End
If
Case
"表A.第四列",
"表A.第五列", "表A.第六列"
If User.Name =
"李四"
Then
ctl.ReadOnly =
BooleanEnum.False
'允许编辑
Else
ctl.ReadOnly =
BooleanEnum.True
'禁止编辑
End
If
End
Select
改写为:
Dim ctl As WinForm.Control = e.Sender
Select Case ctl.BindingField
Case "表名"
If _UserGroup <> "普通用户" Then
ctl.ReadOnly = BooleanEnum.False '允许编辑
Else
ctl.ReadOnly = BooleanEnum.True '禁止编辑
End If
End Select
在窗口的全局事件的Enter事件中设置了此段代码运行,发现不起作用,任何用户都可以在窗口里编辑录入数据,不明白是否代码有改写错误,正确的代码该怎么写。