做的一个系统是云服务器作为数据源，现在想在无法连上这个服务器时，自动启动另外一个系统，然后关闭目前的系统。
但这个语句放哪里才可以呢？我放在BeforeConnectOuterDataSource中及BeforeOpenProject中都不行，把远程服务器关机后，
还是弹出无法连接远程服务器的出错弹窗。如果把"xx.xx.xx.xx"这个IP随便填一个无法ping通的地址，可以做到自动启动发邮件的
系统，然后关闭目前的系统。但填上实际的云服务器ip后，启动系统就是先弹出无法连接数据源的错误弹窗，我的这样的场景应该这
样实现？谢谢老师！
BeforeConnectOuterDataSource
If TryConnectHost("xx.xx.xx.xx")=False Then
Dim Proc As New Process '定义一个新的Process
Proc.File = ProjectPath & "\发邮件系统\foxtable.exe" '指定要打开的文件
Proc.Start()
System.Environment.Exit(0)
End If
BeforeOpenProject
If TryConnectHost("xx.xx.xx.xx")=False Then
Dim Proc As New Process '定义一个新的Process
Proc.File = ProjectPath & "\发邮件系统\foxtable.exe" '指定要打开的文件
Proc.Start()
System.Environment.Exit(0)
End If
加好友 
发短信
Post By：2022/4/27 19:49:00 [显示全部帖子]
