Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]又看不到关联表了


  共有3481人关注过本帖树形打印复制链接

主题：[求助]又看不到关联表了
帅哥哟，离线，有人找我吗？
liujywwy
 小大  21楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00 		  发帖心情 Post By：2014/8/25 9:24:00 [只看该作者]

谁能帮我处理一下啊？

有点甜老师，之前也出现过这样的问题，你帮我远程处理好的，现在又出现了，你能帮我看看吗？

[此贴子已经被作者于2014-8-25 9:34:13编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/8/25 9:37:00 [只看该作者]

你把你AfterOpenProject的下面这段代码删除掉，或者放到LoadUserSetting对应的代码区去。

 With DataTables("需求明细表")
    .LoadFilter = "技术支持邮箱='" &  User.name & "'"
    .LoadTop = 25
    .LoadPage = 0
    .Load()
End With
Tables("临时版本跟踪表").Sort = "需求编号 DESC"
Tables("需求明细表").Sort = "需求编号 DESC"

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/8/25 9:40:00 [只看该作者]

 看22楼，对应改一下LoadUserSetting的代码

Dim druser As DataRow = DataTables("技术支持信息表").SqlFind("name = '" & user.name & "'")
If User.Name.Trim() = "liujiyong@bdcom.com.cn" Then
    DataTables("需求明细表").LoadFilter = ""
Else
    If user.Group = "录入" Then
        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
        With DataTables("需求明细表")
            .LoadTop = 25
            .LoadPage = 0
            .Load()
        End With
       
    Else
        DataTables("需求明细表").LoadFilter = "流程 = '" & user.Group & "'"
    End If
End If
DataTables("需求明细表").Load()
 回到顶部
总数 23 上一页 1 2 3
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03784 秒, 4 次数据查询