If DataTables.Contains("供应商报价最新") Then
DataTables.Unload("供应商报价最新")
End If
Dim dlg As New OpenFileDialog
dlg.Filter= "Access文件|*.mdb" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim ip As New Importer
ip.SourcePath = dlg.FileName '指定数据文件
ip.SourceTableName = "供应商报价_Table1" '指定要导入的表
ip.NewTableName = "供应商报价最新" '导入后的表名
ip.Import()
End If
利用上面的代码导入一个表后.没有保存,马上 利用datatables.unload() 卸载.就出现了类似下面的错误.请帮忙解决
此主题相关图片如下:2014-06-26_231520.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2014-6/201462623173727437.png)
[此贴子已经被作者于2014-6-26 23:17:41编辑过]