Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共5 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:导入不重复Excel数据

1楼
lhyssm 发表于:2011/9/13 12:16:00

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

2楼
ybil 发表于:2011/9/13 12:20:00
纸上谈不兵!你没实例,如何叫人家给代码?
3楼
mam0094 发表于:2011/9/13 22:14:00

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

4楼
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()

5楼
mam0094 发表于:2011/9/13 22:54:00
还有一种方案可以用sql的,我没做出来,具体怎么实现,谁给做下吧?
共5 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03906 s, 2 queries.