主题：保证这个项目复制到任何目录都能正常链接该外部数据源问题

If e.name = "系统数据" Then
    e.C & e.ProjectPath & "系统数据.mdb;Persist Security Info=False"
    e.C & e.ProjectPath & "常用数据.mdb;Persist Security Info=False"
    e.C & e.ProjectPath & "临时数据.mdb;Persist Security Info=False"

 e.C系统数据.mdb;Persist Security Info=False"

End If这段代码有什么问题吗，为什么不能达到我要的结果，保证这个项目复制到任何目录都能正常链接该外部数据源问题，请老大看看

总是吃代码

我就是按照帮助中的说明设置的，提示就是找不到数据表，按CaseStudy下也有示例“动态加载数据(外部数据源).Table”代码做了，还是一样，请老大试试

我想我不会弄错的，仅仅是改几个字

If e.Name = "系统数据"  Andalso e.Name = "常用数据" Andalso e.Name = "临时数据" Then
代码   

End If

我这样设置了，正常了。

但是我不明白为什么这样设置不正确：

If e.Name = "系统数据"  Then

代码
    End If

老大，我现在的问题是有三个数据源，现在不知道把他们同时加载。没有别的问题

If e.Name = "系统数据"  Andalso e.Name = "常用数据" Andalso e.Name = "临时数据" Then
代码   

End If

 

使用这段代码，我把发布的项目拷贝到别的目录可以起作用。中间的一段代码是（由于不换行代码就会丢失，所以在这儿作了换行处理

 e.ConnectionString =

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & e.ProjectPath & "系统数据.mdb;Persist Security Info=False"
    e.ConnectionString =

 "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & e.ProjectPath & "常用数据.mdb;Persist Security Info=False"
    e.ConnectionString =

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & e.ProjectPath & "临时数据.mdb;Persist Security Info=False"
End If

是不明白其中的逻辑关系，我是这样理解的，既然有三个数据源，那么这三个数据源都是要加载的，要不然数据就不能正常加载，用if......elseif  ......end if，我总感觉到只加载了一个数据源

我明白了