以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  删除重复记录  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=145704)

--  作者：rgbjwjb --  发布时间：2020/2/5 11:25:00 --  删除重复记录 老师，新年好！我用帮助文档中下面的代码可以实现数据导入，但我发现有重复的记录，我只想保留重复记录中的第一个，其余重复的都删掉，请问怎么修改？谢谢！！ Dim dlg As New OpenFileDialog  dlg.Filter= "excel文件|*.xls"  If dlg.ShowDialog = DialogResult.Ok Then      Dim mg As New Merger     mg.SourcePath = dlg.FileName     mg.Format = "excel"      mg.SourceTableName = "债权人基本情况表$"      mg.DataTableName = "债权人基本情况表"      If DataTables("债权人基本情况表").HasChanges = True Then         DataTables("债权人基本情况表").Save     End If End If

--  作者：rgbjwjb --  发布时间：2020/2/5 11:26:00 --   比如记录中有个“身份证号码”的字段

--  作者：有点蓝 --  发布时间：2020/2/5 11:34:00 --   那要使用这种方式导入：http://www.foxtable.com/webhelp/topics/2334.htm，看第二段代码