需要实现，在局域网访问时候数据库链接使用内部局域网IP访问，在出差外网访问的时候，切换访问web数据源访问，在BeforeConnectOuterDataSource
设置以下代码，结果没作用
默认设置的数据库链接是采用的局域网内的连接，目前是判断这个链接不上，就换成这个WEB数据源访问
If TryConnectHost("192.168.3.10") = False Then
If Network.Ping("192.168.3.10",1000) = False Then '如果第一个IP无法接通
Select Case e.Name
Case "shujk"
Dim sb As New StringBuilder
sb.AppendLine("http://222.168.xxx.xxx:8000/DataServer.htm")
sb.AppendLine("-FormData-")
sb.AppendLine("UserName:xxxxxx")
sb.AppendLine("Password:xxxxxxxxxxx")
e.ConnectionString = sb.ToString()
End If
End If
加好友 
发短信
Post By：2021/7/28 11:13:00 [只看该作者]
