加一句代码,原因:http://www.foxtable.com/webhelp/scr/0430.htm
Copy.ColumnMappings.Add(mapping9)
Copy.ColumnMappings.Add(mapping10)
Copy.ColumnMappings.Add(mapping11)
Copy.ColumnMappings.Add(mapping12)
copy.Destinati '指定服务器上目标表的名称
copy.WriteToServer(DataTables("批量报告").basetable) '你的datatable名字,执行把DataTable中的数据写入DB
tran.Commit()
DataTables("批量报告").AcceptChanges() '提交事务
catch ex As exception
msgbox(ex.message)
tran.Rollback() '返回False 执行失败!
End try