- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]审核组的看不到关联表的内容了 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=55926)
-- 发布时间：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
-- 发布时间：2014/8/26 11:52:00
--
已经在另一个帖子回复，自己去看自己的帖子
-- 发布时间：2014/8/26 11:58:00
--
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"
-- 发布时间：2014/8/26 12:14:00
--
这样处理，你们审核组的人在需求明细录入那就不是按照技术支持邮箱=user.name来过滤了。是所有的需求审核组的都看到了。
其实审核组也应该按照登录用户名来加载数据。
审核人员zhouyinhe@bdcom.com.cn 登录。在需求明细表加载了所有的数据。应该只加载技术支持邮箱为zhouyinhe@bdcom.com.cn 数据
此主题相关图片如下：审核组登录后的界面.png
-- 发布时间：2014/8/26 14:03:00
--
不理解你什么意思，不理解你想表达什么，技术支持邮箱填写的是录入人，技术支持邮箱怎么可能又是审核组的人啊
-- 发布时间：2014/8/26 14:05:00
--
请看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"