以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  连接数据源  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=102084)

--  作者：kaituozhe --  发布时间：2017/6/13 10:03:00 --  连接数据源 If e.Name = "users" Then     If TryConnectHost("192.168.37.160") Then         If Network.Ping("192.168.37.160") = True  Then                      e.ConnectionString = 局域内网线数据源1     Else         e.ConnectionString = 本机数据源     End If End If 以上代码希望实现，如果局域网能够联通，就使用局域网数据源，如不能连接局域网数据源（可以连接网络或局域网，但是不能连接数据源的IP），则使用本机数据源 以上代码该怎么修改？

--  作者：有点色 --  发布时间：2017/6/13 10:35:00 --   If e.Name = "users" Then     Dim flag As Boolean = False     If TryConnectHost("192.168.37.160") Then         If Network.Ping("192.168.37.160") = True  Then             If Connections.TryConnect(局域内网线数据源1) Then                 e.ConnectionString = 局域内网线数据源1                 flag = True             End If         End If     End If     If flag = False Then         e.ConnectionString = 本机数据源     End If End If