[求助]用户端正常工作时，如果服务器端突然断开无连接时的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师好。

请教老师，在项目用户端正常工作或操作的时，项目服务器端突然断开（包括断电、关机、网络断路等）导致无连接时，导致项目用户端出现死机或假开机状况，项目程序停留在当前操作界面不能进行任何操作(鼠标点击窗口所有控件均无任何反映)，点击项目的关闭按钮也退不出程序，最后只能用启动 “Win的任务管理器” 来强制退出和关闭项目程序。这种情况应如何处理？

能不能在项目某处设置代码，在遇到项目服务器端突然断开（包括断电、关机、网络断路等）导致无连接情况时，能即时跳出一个提示窗口，来提醒客户端用户“与服务器的链接断开”，并且用二个按钮【关闭退出】、【继续等待】来操作项目程序，如果点击【关闭退出】按钮、则能关闭项目并退出；如果点击【继续等待】按钮，则等待恢复链接并在等待一段时间后再次跳出“与服务器的链接断开”的提示窗口让客户端用户选择操作动作。

谢谢。

[此贴子已经被作者于2019/7/30 10:19:18编辑过]

老师好。局域网、SQL Server数据库，在项目“NetworkAddressChanged”事件写入如下代码，将服务器突然关机时，用户端不出现如下代码提示（代码不起作用）。

If TryConnectHost("192.168.152.102") = False Then '如果服务器的地址不可以解析

If Network.Ping("192.168.152.102") = False Then '如果服务器不可以连接

Dim Result As DialogResult

Result = MessageBox.Show("与服务器的链接已断开! 是否退出系统? 点击【确定】,关闭正在进行的工作并退出系统; 点击【取消】,则继续等待服务器恢复链接.", "运行错误", MessageBoxButtons.OKCancel, MessageBoxIcon.Error)

If Result = DialogResult.OK Then

MessageBox.Show("关闭项目退出","提示")

Syscmd.Project.Exit()

Return

Else

MessageBox.Show("继续等待服务器恢复链接.","提示")

End If

[此贴子已经被作者于2019/7/30 10:09:39编辑过]

老师好。实现所需要的功能，但还存在一个问题，就是最后又出现一个系统错误提示如下图后才能退出项目程序。

此主题相关图片如下：002.png

在BeforeCloseProject事件有记录用户退出、及保存数据的代码如下：

Dim dtt As DataTable = DataTables("登录日志")

vars("行")("用户名") = _UserName

vars("行")("退出")= "退出系统"

vars("行")("退出日期时间")= Date.Now()

dtt.save()

For Each dt As DataTable In DataTables

dt.save

请教老师，出现该错误提示是否要修正代码，如果只是提示作用，如何才能不让出现该系统错误提示。谢谢。

[此贴子已经被作者于2019/7/31 10:37:49编辑过]

老师好。在 “第一行加上 if vars("行") is nothing then return” 这句代码后，仍然出现6楼的提示窗口。

主题：[求助]用户端正常工作时，如果服务器端突然断开无连接时的问题