共6 条记录, 每页显示 10 条, 页签: [1]

标题：帮我简化下这个加载代码

1楼

卟离卟弃 发表于：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这些用户都属于高管组
聂宗财。罗顺龙。刘喜明，郭泽燕都属于数据输入组

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

谢谢

2楼

卟离卟弃 发表于：2009/4/25 11:51:00

BeforeLoadInnerTable
我试过，
这个事件不能用组定义
可能技术太菜。。。
你们看看

3楼

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编辑过]

4楼

程兴刚 发表于：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

5楼

卟离卟弃 发表于：2009/4/25 12:45:00

感谢

6楼

卟离卟弃 发表于：2009/4/25 12:45:00

感谢程版主

共6 条记录, 每页显示 10 条, 页签: [1]