我是自己建立了个用户表Users,以为用Users代替User,却出错了!
如果用户User,又不起效!
Dim ctl As WinForm.Control = e.Sender
Select Case ctl.BindingField
Case "T88.已割框", "T88.已割扇", "T88.上门安装", "T88.安装记录"
If Users.Name = "BOSS" Then
ctl.ReadOnly = BooleanEnum.False '允许编辑
Else
ctl.ReadOnly = BooleanEnum.True '禁止编辑
End If
End Select
此主题相关图片如下:qq1.png
