远程的服务器上的内部IP地址是192.168.1.X(有另外一个外网可以访问的固定IP)
当客户远程登陆时如果其所在的电脑也存在一个内部网络，网段也是192.168.1.X的话，这台电脑想登陆到远程的服务器上时数据源连接字符串中的IP就不能自动更换为远程服务器的外网IP(如果客户电脑是192.168.0.X的话就可以)
为什么？下面是连接外部数据源的代码，谢谢！
If e.Name = "ABC" Then
If Network.Ping("192.168.1.13",1000) Then
Return
Else
Dim ipFile As String = e.ProjectPath & "ip.txt"
If Filesys.FileExists(ipFile) Then
Dim ip As String = FileSys.ReadAllText(ipFile)
e.ConnectionString = e.ConnectionString.Replace("192.168.1.13",ip)
Else
MessageBox.Show("请查看系统安装目录下是否有IP.txt文件!","提示")
Syscmd.Project.Exit(False) '退出系统
End If
End If
End If
加好友 
发短信
Post By：2014/3/19 17:34:00 [只看该作者]
