- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]如何屏蔽系统提示对话框（已解决） (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=96442)
-- 发布时间：2017/2/21 9:11:00
-- [求助]如何屏蔽系统提示对话框（已解决）
用Connections.Add生成外部数据源连接后，用Connections.Delete断开连接时，跳出系统设置的提示对话框“该数据仍在使用，不能被删除”，但是数据源还是被断开。用什么方法能够将这个对话框屏蔽掉，请各位老师指教，谢谢！！
Dim SJY As String = RibbonTabs("表结构").Groups("数据源").Items("数据源").Text
For Each sjy2 As Connection In Connections
If SJY = sjy2.Name Then
Connections.Delete(SJY)
End If
Next
此主题相关图片如下：捕获1.png
[此贴子已经被作者于2017/2/21 10:37:03编辑过]
-- 发布时间：2017/2/21 9:38:00
--
建议你先把从这个数据源生成的表或者引用的东西移除，再delete数据源。
如果要自动关闭某个窗口，参考
| 下载信息 [文件大小：300.0 KB 下载次数：18] | |
 点击浏览该文件:关闭任意对话框.table |
-- 发布时间：2017/2/21 10:37:00
--
谢谢有点色老师的指教，在断开连接以前，加上一段移除全部查询表的代码，问题得到解决，再次感谢有点色老师！！
For i As Integer = DataTables.Count -1 To 0 Step -1
If DataTables(i).Type = 4 Then
DataTables.Delete(DataTables(i).Name)
End If
Next