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)
加好友 
发短信
Post By：2020/9/10 23:06:00 [只看该作者]
