主题：网络问题

刚才贴图错了，显示的就是内部网络中的 192.168.1.100,1800这样的IP, 我在IP设置中有个开关，只好将其设置为直接用外网的域名访问暂时可以登陆了，但真不知道内网IP为何突然不能访问，以后再说了。谢谢了！

 

检查beforeconnectouterDatasource时间中的代码。

 '---根据内外网连接选择不同的IP
    Dim net As String = FileSys.ReadAllText(netFile)
    If net = "1" Then '外网直接用IP2连接
        e.ConnectionString = e.ConnectionString.Replace("127.0.0.1,5633",db_IP2 & "," & sql_Port) '加上端口号
    Else '内网先用IP1,不可用再偿试IP2
        e.ConnectionString = e.ConnectionString.Replace("127.0.0.1,5633",db_IP1 & "," & sql_Port) '加上端口号
        If TryConnectHost(db_IP1) Then  '如果内网可用
            If Network.Ping(db_IP1,2000) Then '如果2秒内连上则不用执行后面代码
                Return
            Else
                e.ConnectionString = e.ConnectionString.Replace(db_IP1,db_IP2) '上面已加上端口号,此处仅替换ip即可
            End If
        End If
    End If

 

上面是beforeconnectoutdatasource最后部份的代码，net = 1时直接用域名访问可以，即下面的代码哪里有问题呢？

127.0.0.1,5633是设计项目时默认的ip及sql端口,db_IP1是内网IP,db_IP2是外网IP

 加入代码msgbox(e.ConnectionString)

 

 看一下弹出的值是什么。