以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教删除数据源  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=154316)

--  作者:hb8888
--  发布时间:2020/9/10 23:06:00
--  请教删除数据源
大师:大师删除一数据源,提示正在使用,不可删除。如果卸载该数据源的表后(是窗口中的表),运行以后又提示窗口中的表控件不存在,怎么回事?以前好好的。
--  作者:hb8888
--  发布时间:2020/9/10 23:08:00
--  
 Dim ErrMsg1 As String
            Dim Conn1 As String = ljzfc                                                         \'----连接字符串----
            If Connections.TryConnect(Conn1,ErrMsg1) = False Then                               \'----创建数据源----
                MessageBox.Show(ErrMsg1)
            Else
                If Connections.Contains("lssjyexl") = False  Then
                    Connections.Add("lssjyexl",Conn1)
                Else
                    
                  Dim bjh As new List(of String)  
                    For Each dt As DataTable In DataTables
                        If dt.C  Then
                            If DataTables.Contains(dt.name) = True  Then                                
                                bjh.Add(dt.name)                           
                            End If
                        End If
                    Next
                  For Each a As String In bjh
DataTables.Unload(a)
Next



                    MessageBox.Show(3)
                    Connections.Delete("lssjyexl")
MessageBox.Show(4)
                    Connections.Add("lssjyexl",Conn1)
MessageBox.Show(5)


--  作者:hb8888
--  发布时间:2020/9/10 23:36:00
--  
如果窗口中的表通过DataSource绑定到外部数据源的表,那么我删除数据源时,提示该数据源正在使用,怎么办?
--  作者:有点蓝
--  发布时间:2020/9/11 8:51:00
--  
方法1、在关闭窗口后再删除连接
2、可以这样
If Connections.Contains("t")
    DataTables.Unload("窗口2_Table1")
    Connections.Delete("t")
End If
但是这个用法会同时把窗口表控件也删除了,需要关闭重新打开窗口才能使用。
如果还要继续使用这个窗口表,需要另外创建,建议使用动态创建表控件的方式添加窗口表:http://www.foxtable.com/webhelp/topics/1919.htm