[浏览完整版]
标题：请教一个根据条件加载外部数据的例子
1楼
卟离卟弃 发表于：2009/5/14 12:08:00| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目16.rar |
看了看加载外部数据的介绍,感觉很不错,想想肯定能够根据条件加载外部数据
不同的用户在同一个数据源里面加载不同的数据
文件已经设置好数据源与数据表.
我想设置成为,不同的用户进来时,加载相关记录.
用王总(用户属性是发布组)用户名登录,只加载 (项目发布者列) 中姓名是王总的记录
用小唐(用户属性是执行组)用户名登录.只加载 (项目负责人列) 中姓名是小唐的记录
用开发者管理员进入时,加载全部
不知道代码应该写在那儿(项目文件属性还是表属性),看见数据表加载那儿只有关于加载时排序的介绍...
那位大哥大姐知道怎么做的,帮帮忙....
2楼
狐狸爸爸 发表于：2009/5/14 12:13:00内部表，写在项目事件BeforeLoadInnerTable中
外部表，写在项目事件BeforeLoadOuterTable中
外部表，写在项目事件BeforeLoadOuterTable中
3楼
卟离卟弃 发表于：2009/5/14 13:22:00如果我不想让 用户组别 或 个别用户 看见A表,但是A表又必需要加载进来,它要参与计算..
代码怎么写?
4楼
狐狸爸爸 发表于：2009/5/14 13:27:001、
用AfterOpenProjec事件
2、
If User.Group <> "XXX" Then
Tables("YYYYY").Visble = False
End If
5楼
卟离卟弃 发表于：2009/5/14 13:46:00狐爸
If e.DataTableName = "数据库试用问题请教" AndAlso e.User.Group <>"执行组" Then
e.SelectString = "Select * From [数据库试用问题请教] Where [项目指定负责人] = '" & e.User.Name & "'"
End If
失效....
错在那儿?
If e.DataTableName = "数据库试用问题请教" AndAlso e.User.Group <>"执行组" Then
e.SelectString = "Select * From [数据库试用问题请教] Where [项目指定负责人] = '" & e.User.Name & "'"
End If
失效....
错在那儿?
6楼
yangming 发表于：2009/5/14 14:29:00If e.DataTableName = "数据库试用问题请教" AndAlso e.User.Group <>"执行组" Then
e.SelectString = "Select * From [数据库试用问题请教] Where [项目指定负责人] = "& e.User.Name & ""
End If
e.SelectString = "Select * From [数据库试用问题请教] Where [项目指定负责人] = "& e.User.Name & ""
End If
7楼
卟离卟弃 发表于：2009/5/14 18:30:00杨大姐
一样无效啊....
一样无效啊....
8楼
ybtxdz 发表于：2009/5/14 18:46:00试试
If e.DataTableName = "数据库试用问题请教" AndAlso e.User.Group <>"执行组" Then
e.SelectString = "Select * From {数据库试用问题请教} Where 项目指定负责人= '" & e.User.Name & "'"
End If
If e.DataTableName = "数据库试用问题请教" AndAlso e.User.Group <>"执行组" Then
e.SelectString = "Select * From {数据库试用问题请教} Where 项目指定负责人= '" & e.User.Name & "'"
End If
9楼
yangming 发表于：2009/5/14 19:06:00有什么提示?你有无分组用户"执行组"
[此贴子已经被作者于2009-5-14 19:13:06编辑过]
10楼
卟离卟弃 发表于：2009/5/14 19:43:00没有任何提示,全都加载进来了