主题：更改数据源

 

你msgbox(s)看一下弹出什么值

 

加入红色代码，弹出什么？

 

msgbox(s)

DataTables.Unload(s)  

 

那加入判断

 

If s > "" then

    DataTables.Unload(s)  

Else

    msgbox("不需要卸载表")

End If

If dt.C  Then

 

改成

 

If dt.connectionname = "xxx"  Then

 

 

1、如果你删除msgbox，是不是就满足你的需求了？

 

2、现在你遇到什么问题？除了弹出窗口。

具体实例发上来测试。

 

数据库压缩后上传上来。

1、切换后，不是在【数据源】那里查看数据啊；

 

2、在你的表格那里，同步表后查看数据。

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "账套文件|*.mdb" '设置筛选器
dlg.MultiSelect =  False
If dlg.ShowDialog = DialogResult.Ok Then
    ''遍历打开的窗口,将所有者表属于要变更的数据源的窗口关闭
    'For Each frm As WinForm.Form In Forms
    'If frm.Opened  Then
    'If frm.TableName = "订单" Then
    'frm.Open()
    'End If
    'End If
    '
    'Next
   
   
   
    Dim s As String =""
    '遍历当前属于此数据源的表
    For Each dt As DataTable In DataTables
        If dt.connectionname = "SJLJ"  Then
            s += "|" & dt.name
        End If
    Next
    s = s.Trim("|")
   
    '卸载表
   
    If s > "" Then
       
        DataTables.Unload(s)
    End If
    Dim s1 As String =  "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";Data Source=" & dlg.FileName & ";Persist Security Info=True"
   
    Connections.Delete("SJLJ")
   
    Connections.add("SJLJ",s1)
   
    msgbox(Connections("SJLJ").ConnectionString)
    If s > "" Then
        DataTables.load(s)
       
    End If
   
End If

切换数据源的时候，会先卸载表，然后重新加载表的。先加载的表，会在前面的位置上。

 

请确认你卸载表，加载表的先后顺序。