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

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

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

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

小唐 小张 小李
 这三人都是执行组的成员,当然会全都加载进来
你将小李改成其它组,然后再试看是否有选择?

下面代码通过

If e.DataTableName = "数据库试用"
    Select Case e.User.Group
        Case "执行组"
            e.SelectString = "Select * From {数据库试用问题请教} Where 项目指定负责人= '" & e.User.Name & "'"
        Case "发布组"
            e.SelectString = "Select * From {数据库试用问题请教} Where 项目发布者= '" & e.User.Name & "'"
        Case "开发组","管理组"
            e.SelectString = "Select * From {数据库试用问题请教}"
    End Select
End If

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

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

行了,谢谢

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

参考项目事件：
BeforeConnectOuterDataSource

狐爸
有点不对啊

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

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

 

我笔误，你查一下Table的属性，不就知道正确的写法了：

tables(“表B”).Visible = false

往往很多时候,我们都是直接复制帮助上的例子的,所以才会出现这样的问题,呵呵