-- 作者:coch2004
-- 发布时间:2014/6/26 23:16:00
-- [求助]运行错误 表 '~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
[此贴子已经被作者于2014-6-26 23:17:41编辑过]
|