主题：请教一个根据条件加载外部数据的例子

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目16.rar

看了看加载外部数据的介绍,感觉很不错,想想肯定能够根据条件加载外部数据
不同的用户在同一个数据源里面加载不同的数据

文件已经设置好数据源与数据表.
我想设置成为,不同的用户进来时,加载相关记录.
用王总(用户属性是发布组)用户名登录,只加载 (项目发布者列) 中姓名是王总的记录
用小唐(用户属性是执行组)用户名登录.只加载 (项目负责人列) 中姓名是小唐的记录
用开发者管理员进入时,加载全部

不知道代码应该写在那儿(项目文件属性还是表属性),看见数据表加载那儿只有关于加载时排序的介绍...



那位大哥大姐知道怎么做的,帮帮忙....

内部表，写在项目事件BeforeLoadInnerTable中
外部表，写在项目事件BeforeLoadOuterTable中

如果我不想让 用户组别 或 个别用户 看见A表,但是A表又必需要加载进来,它要参与计算..
代码怎么写?

1、
用AfterOpenProjec事件
2、
If User.Group <> "XXX" Then
       Tables("YYYYY").Visble = False

    End If

狐爸
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

杨大姐
一样无效啊....

试试
If e.DataTableName = "数据库试用问题请教" AndAlso e.User.Group <>"执行组"  Then
    e.SelectString = "Select * From {数据库试用问题请教} Where 项目指定负责人= '" & e.User.Name & "'"
End If

有什么提示?你有无分组用户"执行组"

没有任何提示,全都加载进来了