以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  帮我简化下这个加载代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=2593)
--  作者：卟离卟弃
--  发布时间：2009/4/25 11:50:00
--  帮我简化下这个加载代码

If e.DataTableName = "工作任务表"
   e.Filter = "[负责工程师] = \'" & e.User.Name & "\'"
End If
If e.DataTableName = "工作任务表" AndAlso e.User.Name = "开发者"  Then
   e.Filter = "[负责工程师] In (\'聂宗财\',\'罗顺龙\',\'刘喜明\',\'郭泽燕\')"
End If
If e.DataTableName = "工作任务表" AndAlso e.User.Name = "袁总"  Then
   e.Filter = "[负责工程师] In (\'聂宗财\',\'罗顺龙\',\'刘喜明\',\'郭泽燕\')"
End If
If e.DataTableName = "工作任务表" AndAlso e.User.Name = "宋经理"  Then
   e.Filter = "[负责工程师] In (\'聂宗财\',\'罗顺龙\',\'刘喜明\',\'郭泽燕\')"
End If
If e.DataTableName = "工作任务表" AndAlso e.User.Name = "陈总"  Then
   e.Filter = "[负责工程师] In (\'聂宗财\',\'罗顺龙\',\'刘喜明\',\'郭泽燕\')"
End If
If e.DataTableName = "工作任务表" AndAlso e.User.Name = "steve"  Then
   e.Filter = "[负责工程师] In (\'聂宗财\',\'罗顺龙\',\'刘喜明\',\'郭泽燕\')"
End If
If e.DataTableName = "工作任务表" AndAlso e.User.Name = "管理员"  Then
   e.Filter = "[负责工程师] In (\'聂宗财\',\'罗顺龙\',\'刘喜明\',\'郭泽燕\')"
End If


陈总，宋经理。袁总。STEVE这些用户都属于高管组
聂宗财。罗顺龙。刘喜明，郭泽燕都属于数据输入组

我的目得就是想，当数据输入组用户打开文件时，工作任务表  中只加载  负责工程师  等于用户名的记录，而当高管组进来时，所有  负责工程师的都加载

谢谢
--  作者：卟离卟弃
--  发布时间：2009/4/25 11:51:00
--  
BeforeLoadInnerTable
我试过，
这个事件不能用 组定义
可能技术太菜。。。
你们看看
--  作者：kylin
--  发布时间：2009/4/25 12:33:00
--  
设高管组和录入组来区分所有用户
If e.DataTableName = "工作任务表" and  e.User.Group <>"高管组" then
   e.Filter = "[负责工程师] = \'" & e.User.Name & "\'"
End If
[此贴子已经被作者于2009-4-25 12:33:13编辑过]
--  作者：程兴刚
--  发布时间：2009/4/25 12:39:00
--  
If e.DataTableName = "工作任务表" 
    if e.User.Name = "开发者" or e.User.Name = "袁总" or e.User.Name = "宋经理"  or e.User.Name = "陈总"  or e.User.Name = "steve" or  e.User.Name = "管理员" Then
         e.Filter = "[负责工程师] In (\'聂宗财\',\'罗顺龙\',\'刘喜明\',\'郭泽燕\')"
    else
         e.Filter = "[负责工程师] = \'" & e.User.Name & "\'"
    End If
End If
--  作者：卟离卟弃
--  发布时间：2009/4/25 12:45:00
--  
感谢
--  作者：卟离卟弃
--  发布时间：2009/4/25 12:45:00
--  
感谢程版主