在BeforeConnectOuterDataSource中录入下面代码：
If e.name = "ini" Then
Dim ipFile As String = e.ProjectPath & e.name & ".txt"
If Filesys.FileExists(ipFile) Then
Dim strs As String = FileSys.ReadAllText(ipFile,Encoding.Default)
strs = strs.Replace(vblf,"")
Dim rs() As String = strs.Split(vbcr)
Dim cs() As String = rs(Cint(rs(0))).Split("|")
e.ConnectionString = DecryptText(cs(1), cs(0) ,"aaa")
msgbox(e.ConnectionString )
Else
e.EditConnectionString()
End If
End If
在项目文件夹里建立一个ini.txt文件，内容如下：
1
1.本地库|EZawaqGmpTRQ78zP5klgHRCExdT+OkRX
2.远程库|05UDj5kNP/JQOyNAhvrOMOqZBvshNW6TGE
通过修改第一行的数字，来选择下面列的数据库。项目中已经设置了ini数据源。现在项目启动后不是更改连接串连自己要连的数据源，而是提示：
创建外部连接失败，请联系管理员或开发者，重新设置数据连接字符串，然后进系统时提醒不存在ini数据源。
不要这段代码使用在项目中设置的外部数据源ini，系统运行正常，加上这段代码就提示创建失败。原因在哪里呢？
加好友 
发短信
Post By：2019/4/10 9:26:00 [只看该作者]
