专家坐堂-[求助] 导入excel数据会重复，如何通过遍历方法合并重复数据Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Forms("考勤统计").open()

MainTable = Tables("考勤统计表")

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog

dlg.Filter= "Excel文件|*.xls;*.xlsx" \'设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮

Dim count As Integer = DataTables("考勤统计表").datarows.count

Dim mg As New Merger

mg.SourcePath = dlg.FileName

mg.Format = "excel"

mg.SourceTableName = "sheet1$"

mg.DataTableName = "考勤统计表"

mg.Merge()

msgbox(DataTables("考勤统计表").datarows.count - count)

End If

但是每次可以重复不停导入，怎么修改代码，可以实现
图片点击可在新窗口打开查看

此主题相关图片如下：导入数据.png

同样的“姓名”，‘年份’，‘月份’ ，再次导入了，可以合并掉。