[求助]在导入excel表时,想删除已经导入的表 Post By:2016/7/18 23:11:00 [显示全部帖子]
在导入excel表时,想判断以前是否导入某表名,想删除已经有的表名
Dim ip As New Importer Dim tTable As DataTable=DataTables("tmpx") If ttable IsNot Nothing Then 'ttable.delete End If ip.SourcePath = "D:\ProcStock\数据库追加.xls" '指定数据文件 ip.SourceTableName = "20160718" '指定要导入的表 ip.NewTableName="tmpx" ' & tdate '导入后的表名 ip.Format = "Excel" '指定导入格式 ip.Import() Dim twin As WinForm.Form = Forms("excel导入") Tables("excel导入_TableExcel").DataSource =DataTables("tmpx")