在导入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")