主题：窗口权限

Dim ctl As WinForm.Control = e.Sender
Select Case ctl.BindingField
    Case "表A.第一列", "表A.第二列", "表A.第三列"
       If User.Group = "行政" Then
            ctl.ReadOnly = BooleanEnum.False '允许编辑
        Else
            ctl.ReadOnly = BooleanEnum.True '禁止编辑
        End If
    Case "表A.第四列", "表A.第五列", "表A.第六列"
        If User.Group = "经理" Then
            ctl.ReadOnly = BooleanEnum.False '允许编辑
        Else
            ctl.ReadOnly = BooleanEnum.True '禁止编辑
        End If
End Select

我希望：行政职能修改第一列，第二列，第三列      ，   而   经理    可以修改所以列。谢谢！该怎么弄呢？