主题：录入窗口与权限管理

改成下面代码，弹出什么？

Dim ctl As WinForm.Control = e.Sender
msgbox(ctl.BindingField)
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

能否做一个foxtable实例发上来说明？

如果你是在表格里面限制的，参考

http://www.foxtable.com/webhelp/scr/2255.htm

http://www.foxtable.com/webhelp/scr/2257.htm