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

按照帮助文段设置录入窗口用户权限，为什么不起作用？？？设置完后任何一个用户登录一样可以编辑

假定设计了一个录入窗口用于录入表A的数据，要求张三负责输入第一列、第二列、第三列的内容，李四负责输入第五列、第六列、第七列的内容。

要实现此目的，只需在窗口的全局事件的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

我在窗口全局时间enter加入代码，只修改了控件的绑定字段

Dim ctl As WinForm.Control = e.Sender
Select Case ctl.BindingField
    Case "报价单.人工价"
        If User.Name = "IE" Then
            ctl.ReadOnly = BooleanEnum.False '允许编辑
        Else
            ctl.ReadOnly = BooleanEnum.True '禁止编辑
        End If
    Case "报价单.检测费用", "报价单.包装费用", "报价单.运输","报价单.小缸费","报价单.制造费","报价单.研发管理费","报价单.后勤管理费"
        If User.Name = "业务" Then
            ctl.ReadOnly = BooleanEnum.False '允许编辑
        Else
            ctl.ReadOnly = BooleanEnum.True '禁止编辑
        End If
End Select