主题：文件导入，用循环遍历却出问题，单个导入可以

Dim ip As New Importer
ip.SourcePath =e.Form.Controls("DropBox1").value

For Each File As String In FileSys.GetFiles(ip.SourcePath)
    ip.SourceTableName = file  '指定要导入的文件"订单.DBF"
    ip.NewTableName = file '导入后的表名
    ip.Format = "dbase" '指定导入格式
    If DataTables.Contains(file) '如果存在统计表1
        DataTables.Delete(file)
    End If
    ip.Import()
Next

Dim ip As New Importer
ip.SourcePath =e.Form.Controls("DropBox1").value

    ip.SourceTableName = “订单”  '指定要导入的文件"订单.DBF"
    ip.NewTableName = “订单” '导入后的表名
    ip.Format = "dbase" '指定导入格式
    If DataTables.Contains(“订单”) '如果存在统计表1
        DataTables.Delete(“订单”)
    End If
    ip.Import()