主题：[分享] 再谈动态数据源

我在程序中 加个按钮 切换数据源时   执行结果是对的，可是界面破坏了 如何处理

Dim s As String =""
'遍历当前属于此数据源的表
For Each dt As DataTable In DataTables
    If dt.C  Then
        s += "|" & dt.name
    End If
Next
s = s.Trim("|")

'卸载表
DataTables.Unload(s)

Dim s1 As String =  "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\五金销售系统\data.MDB;Persist Security Info=False"
Connections.Delete("wj")
Connections.add("wj",s1)
DataTables.load(s)