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

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

下面代码通过

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

查看帮助 load