主题：登陆者不能在窗口中查找

If e.Sender.Name.SubString(0,4) = "_cmb" Then '如果名称符合
    Dim cmb As WinForm.ComboBox = e.Sender
    If cmb.Items.Count > 0 Then  '如果已经设置了项目
        Return '则返回
    End If
    Dim t  As  Table = cmb.BindTable '获得绑定的Table
    Dim c As Col = cmb.BindCol '获得绑定的Col
    Dim dr As  DataRow =  DataTables("组合框代码").Find("[表] = '" & t.Name & "' And [列] = '" & c.Name &  "'")
    If dr IsNot Nothing Then  '如果在项目表找到对应的行
        cmb.Combolist = dr("列表项目") '则设置列表项目
    End If
End  If

Dim ctl As WinForm.Control = e.Sender
Dim r As Row = Tables("制造质量管理").Current
If r IsNot Nothing Then
    If User.Name = "开发者" Then
        ctl.ReadOnly = BooleanEnum.False '允许编辑
    Else
        If User.Name = r("检验员") Then
            ctl.ReadOnly = BooleanEnum.False '允许编辑
        Else
            ctl.ReadOnly = BooleanEnum.True '禁止编辑
        End If
    End If
End If
If ctl.name = "TextBox17" Then
    If User.Name = "开发者" Then
        ctl.ReadOnly = BooleanEnum.False '允许编辑
    Else
        ctl.ReadOnly = BooleanEnum.True
    End If
End If