主题：关于内网和外网自动转换的问题

BeforeConnectOuterDataSource：

'通用-根据内网和外网登录时服务器地址IP的不同,选择不同的连接字符串

Dim a As Boolean

Dim i As Integer

'If TryConnectHost(IP1) Then

    For i = 1 To 5 '5可根据内网稳定性调整

        a = Network.Ping(IP1) 'IP1是内网地址，在全局代码中定义

        If a Then

            Exit For

        End If

    Next

'End If

If a Then

    IPa=IP1  'IPa是采用地址，在全局代码中定义

Else

    IPa=IP2  'IP2是外网地址，在全局代码中定义

End If

e.C……;Password=SQL密码; '这一句看帮助吧