主题：[求助]运行错误 表 '~TMPCLP供应商报价最新' 已存在。

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