仍然是远程数据源的问题，感觉要疯了! - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If e.Name = "gcerp" Then

dim b as Boolean = Network.Ping("主机名称",1000)

msgbox(b) ‘这里显示什么如果是ping的通的也就是true，肯定不会执行下面的if代码

If b = False Then '这里我没有使用IP地址，而是用主机名称的方式连接
e.Connec tion String = e.Connec tion String.Replace("主机名称", "1234567.uttcare.com,9999") '注：1234567.uttcare.com是虚拟域名的地址，已经做了端口映射。

End If
End If

[此贴子已经被作者于2021/10/14 9:36:13编辑过]

主题：仍然是远程数据源的问题，感觉要疯了!