Foxtable(狐表)用户栏目专家坐堂 → [求助]审核组的看不到关联表的内容了


  共有2763人关注过本帖平板打印复制链接

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

帅哥哟,离线,有人找我吗?
liujywwy
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:633 积分:4034 威望:0 精华:0 注册:2014/6/23 10:27:00
[求助]审核组的看不到关联表的内容了  发帖心情 Post By:2014/8/26 11:51:00 [只看该作者]

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
图片点击可在新窗口打开查看

 回到顶部