主题：[求助]审核组的看不到关联表的内容了

loadusersetting代码如下：

Dim druser As DataRow = DataTables("技术支持信息表").SqlFind("name = '" & user.name & "'")
With DataTables("需求明细表")
    .LoadFilter = "技术支持邮箱='" &  User.name & "'"
    .LoadTop = 25
    .LoadPage = 0
    .Load()
End With
Tables("临时版本跟踪表").Sort = "需求编号 DESC"
Tables("需求明细表").Sort = "需求编号 DESC"
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       
             DataTables("需求明细表").LoadFilter = "技术支持邮箱 = '" & User.Name.trim() & "'" ' Or 流程 = '" & user.Group & "'"

        End Select
End If
DataTables("需求明细表").Load()

此主题相关图片如下：审核组的看不到关联表内容.png

 已经在另一个帖子回复，自己去看自己的帖子

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

With DataTables("需求明细表")
    .LoadTop = 25
    .LoadPage = 0
End With

DataTables("需求明细表").Load()

Tables("临时版本跟踪表").Sort = "需求编号 DESC"
Tables("需求明细表").Sort = "需求编号 DESC"

这样处理，你们审核组的人在需求明细录入那就不是按照技术支持邮箱=user.name来过滤了。是所有的需求审核组的都看到了。

其实审核组也应该按照登录用户名来加载数据。

 审核人员zhouyinhe@bdcom.com.cn 登录。在需求明细表加载了所有的数据。应该只加载技术支持邮箱为zhouyinhe@bdcom.com.cn    数据

此主题相关图片如下：审核组登录后的界面.png

 不理解你什么意思，不理解你想表达什么，技术支持邮箱填写的是录入人，技术支持邮箱怎么可能又是审核组的人啊

 请看5楼，满足5楼的条件再想办法写代码啊

 

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
    End Select
End If

With DataTables("需求明细表")
    .LoadTop = 25
    .LoadPage = 0
End With

DataTables("需求明细表").Load()

Tables("临时版本跟踪表").Sort = "需求编号 DESC"
Tables("需求明细表").Sort = "需求编号 DESC"