主题：同样一个表对应2个数据源切换的问题

加一行：


DataTables("表1").Save()
dim zt as string=Forms("窗口1").Controls("ComboBox1").value
Select Case zt
    Case "A"
        DataTables("表1").LoadFilter = "编号>=0"
        DataTables("表1").ChangeConnection( "a" )
    Case "B"
        DataTables("表1").LoadFilter = "编号>=0"
        DataTables("表1").ChangeConnection( "b" )
    Case Else
        MessageBox.Show("请正确选择帐套信息!")
        return
End Select

搞定，下次更新不会有了