标题：帮我把下面窗口权限加个条件

XXX：888

表名：织机生产 窗口名：生产交货窗口

帮我把下面窗口权限加个条件 （"织机生产.交货确认"）李杰景 确认后 行 锁定（要窗口中的数值组合框也不能改） 只有李杰景可以解锁修改

Dim ctl As WinForm.Control = e.Sender
Select Case ctl.BindingField
    Case "织机生产.交货数量", "织机生产.交货重量", "织机生产.排单编号"
        If User.Role = "织机交货" 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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:名新_0904.zip

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:名新_0904.zip

有没人帮我再看一下，我重新上传了。