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

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

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

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

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

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



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

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

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

失效....
错在那儿?

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

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

一样无效
是不是我那儿设置错了?

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

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

Where 项目指定负责人= '" & e.User.Name & "'"

这不是有条件吗?,项目指定负责人要等于用户名.

行了,谢谢

杨姐
数据库必需和程序文件放在同一文件夹下面儿,才行吗?

狐爸
有点不对啊

编译错误:‘Visble' is not a member of 'table'
错误代码： tables(“表B”).Visble = false

代码
If User.Group <> "发布者" Then
       Tables("表B").Visble = False
End If