我编写了一段关闭数据表的程序如下:
Dim dts As List(Of String) = DataTables("Data").SQLGetValues("数据库_表名")
Dim dt1s As New List(Of String) From {"Start", "EMList", "Data", "ResourceID", "AutoRunRecord"}
For Each dt As String In dts
If Not dt1s.Contains(dt) Then
If DataTables.Contains(dt) Then
Try
Output.Show(space(4) & "数据库" & dt & "将关闭")
DataTables.Unload(dt)
Output.Show(space(8) & "数据库 " & dt & " 成功关闭")
Catch ex As Exception
Output.Show(space(8) & "数据库 " & dt & " 关闭异常,忽略......")
End Try
End If
End If
Next
Output.Show(space(8) & "完成 CloseAllDataTable 运行")
说明:
数据表"Data"为一个存储当前系统所有表的数据集, 字段名为"数据库_表名",程序是通过读取该字段中的数据库表名后判断是否 为"Start", "EMList", "Data", "ResourceID", "AutoRunRecord"这5个表之一,如果是则不用关闭, 如果不是,则直接关闭.
但程序运行很奇怪,有的时候运行正常,有的时候运行异常, 因此在程序中,我增加了提示信息和 Try...指令组, 但在出现异常时仍然无法直接跳过,并跳出如下窗口提示:
出现该提示后,点击Ok, 系统还不能立即关闭该窗口,而是经常性的继续跳出同一窗口,经过次数不一, 有时候不得不开启Windows系统关闭Foxtable进程.
点击 OK 后界面出现内容:
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2024.11.1.1
错误所在事件：
详细错误信息：
Object reference not set to an instance of an object.
我有时候想,是否是因为有关联表没有同时关闭,但事实上,整个系统我没有使用一个关联表, 因此不存在这个问题.
此问题已经困扰我很长时间了, 一直没有知道解决方案,老师,能帮我看一下吗? 可能出现的异常在哪里? 我从哪里寻找解决点, 谢谢!
[此贴子已经被作者于2025/4/22 16:35:21编辑过]
加好友 
发短信
Post By：2025/4/22 16:33:00 [显示全部帖子]
