Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
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”。
如果不行，通常是名称错误，自己在代码中用MessageBox检查，这种问题很好调试。
实在搞不定，就做个简单的例子传上来，设置好代码，我看看你的问题在哪。
总是吃代码
肯定错了，不信的话，你做个例子传上来。
If e.Name = "系统数据" Andalso e.Name = "常用数据" Andalso e.Name = "临时数据" Then
代码
End If
我这样设置了，正常了。
但是我不明白为什么这样设置不正确：
If e.Name = "系统数据" Then
代码
End If
第一段代码不可能通过，e.name不可能同时等于这三个值，如此设置，根本就达不到动态数据源的目的，你能通过，是因为通过菜单设置的数据源继续有效。
第一段能通过，第二段不能通过，是因为第二段代码起了作用，说明你设置连接字符串的代码有问题。
搞不定就做例子，不要瞎折腾。
老大，我现在的问题是有三个数据源，现在不知道把他们同时加载。没有别的问题
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怎么用都不知道了吗：
If e.Name = "系统数据" Then
e.ConnectionString =
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & e.ProjectPath & "系统数据.mdb;Persist Security Info=False"
ElseIf e.Name = "常用数据" Then
e.ConnectionString =
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & e.ProjectPath & "常用数据.mdb;Persist Security Info=False"
Elseif e.Name = "临时数据" Then
e.ConnectionString =
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & e.ProjectPath & "常用数据.mdb;Persist Security Info=False"
End If
还可以用Select Case，这属于编程最基础的部分，必须掌握，最好回头看看帮助的编程基础部分。