在技术支持信息表有一列name。

这个表现在也需要按照登录的用户名user.name来加载name=user.name的行（所有的name都属于录入或者审核组的），请帮我看一下红色的代码，为什么没生效。

Dim druser As DataRow = DataTables("技术支持信息表").SqlFind("name = \'" & user.name & "\'")
If User.Name.Trim() = "liujiyong@bdcom.com.cn" Then
    DataTables("需求明细表").LoadFilter = ""
Else
    Select Case user.Group
        Case  "录入"
            If druser.Isnull("新负责人邮箱") Then
                DataTables("需求明细表").LoadFilter = "技术支持邮箱 = \'" & User.Name.trim() & "\'" \' Or 流程 = \'" & user.Group & "\'"
            Else
                DataTables("需求明细表").LoadFilter = "技术支持邮箱 = \'" & User.Name.trim() & "\' or 技术支持邮箱 in (\'" & druser("新负责人邮箱").Trim().Replace(",", "\',\'") & "\') " \'or 流程 = \'" & user.Group & "\'"
            End If
        Case "审核"
            DataTables("需求明细表").LoadFilter = "流程 = \'" & user.Group & "\'"
    End Select
End If
If User.Name.Trim() = "liujiyong@bdcom.com.cn" Then
    DataTables("技术支持信息表").LoadFilter = ""
Else
    Select Case user.Group
        Case  "录入","审核"
            DataTables("技术支持信息表").LoadFilter = "name = \'" & User.Name.trim() & "\'"         
End Select
End If

每个人只能修改个人的信息，但不能新增。如何登陆进来，把新增按钮变为灰色的？

此主题相关图片如下：新增变为灰色的不能点击.png