主题：窗口表权限

要实现此目的，只需在窗口的全局事件的Enter事件中设置代码：

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