唉 没时间反复测试 了
在关闭卸载表前 先将窗口表 绑定到一个 内部表吧
For Each vsc As String In gs_LshiBiaozd.Values '显示所有值 清空临时生成的所有数据导入建立的临时表,该类的表全部是 内部数据源
If DataTables.Contains(vsc) Then
Dim Builder As New ADOXBuilder
Builder.Open()
With Builder
.DeleteTable(vsc)
End With
Builder.Close()
DataTables.Unload(vsc)
End If
Next
gs_LshiBiaozd.Clear '清除所有的键和值
For Each vsc As String In gs_LshiTjBiaozd.Values '显示所有值 清空临时生成的所有统计表
If DataTables.Contains(vsc) Then
Dim tb4 As Table = e.Form.Controls("Table4").Table '关闭窗口前先改变tb4的绑定窗口 避免报错(系统BUG?)
tb4.DataSource = DataTables("Main") 'g.BuildDataSource() '关闭窗口前先改变tb4的绑定窗口 避免报错(系统BUG?)
DataTables.Unload(vsc)
End If
Next
gs_LshiTjBiaozd.Clear '清除所有的键和值
Dim tb2 As Table = Forms("数据导入").Controls("Table2").Table '字段目标对应关系
tb2.DataTable.RejectChanges '如果没有执行数据合并则取消对应关系的修改