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事件中设置了此段代码运行，发现不起作用，任何用户都可以在窗口里编辑录入数据，不明白是否代码有改写错误，正确的代码该怎么写。