这是导入代码，是合并。并不会删除重复的条目。我希望，当导入后，检查生产订单号码和行号列，如果有重复的，就把最新的删除掉，只保留老的生产订单号码和行号的数据。
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim ip As New Merger
ip.SourcePath = dlg.FileName '指定数据文件
ip.SourceTableName = "订单执行统计表$" '指定要导入的表
ip.DataTableName ="订单" '导入后的表名
ip.Format = "Excel" '指定导入格式
ip.merge()
End If
DataTables("临时版本").save()
MessageBox.show("导入成功","提示商务助理",MessageBoxButtons.OK,MessageBoxIcon.Information)
加好友 
发短信
Post By：2016/2/15 15:55:00 [显示全部帖子]
