以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  导入不重复Excel数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=12740)

--  作者:lhyssm
--  发布时间:2011/9/13 12:16:00
--  导入不重复Excel数据

我每天要分时段的从单位的ERP系统导出订单数据表(固定格式的excel表,每次导出的表和以前导出的都会有重复),再将表导入Foxtable中的固定数据表,问题:Foxtable如何能不导入已导过的行或将完全相同的行删除,避免数据重复,哪位高手能指点一下,最好有代码,先谢谢了!


--  作者:ybil
--  发布时间:2011/9/13 12:20:00
--  
纸上谈不兵!你没实例,如何叫人家给代码?
--  作者:mam0094
--  发布时间:2011/9/13 22:14:00
--  

很好,同样的需求,,做好了share给你


--  作者:mam0094
--  发布时间:2011/9/13 22:47:00
--  

我的方案是这样的:将外部数据合并到临时表,再用数据将临时表的数据填充到固定的数据表中。

 

\'建临时表
Dim xjjy As New DataTableBuilder("表1") 

xjjy.AddDef("列A", Gettype(String), 7)
xjjy.Build()
DataTables("表1").dataRows.clear
\'数据导入到临时表
Dim mg As New Merger
mg.SourcePath = "e:\\excel.xls"
mg.Format = "excel" \'指定格式
mg.SourceTableName = "sheet1$" \'指定要合并的表
mg.DataTableName = "表1" \'指定接收数据的表
mg.Merge() \'开始合并
\'数据填充到数据表
Dim f As New Filler
f.SourceTable = Tables("表1").DataTable
f.DataTable = DataTables("表2")
f.ExcludeExistValue =True
f.Append =True
f.Fill()


--  作者:mam0094
--  发布时间:2011/9/13 22:54:00
--  
还有一种方案可以用sql的,我没做出来,具体怎么实现,谁给做下吧?