删除重复记录 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 删除重复记录

共有2481人关注过本帖树形打印复制链接主题：删除重复记录

rgbjwjb

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：三尾狐帖子：638 积分：6477 威望：0 精华：0 注册：2016/12/27 21:05:00

删除重复记录 发帖心情

Post By：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

rgbjwjb

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：三尾狐帖子：638 积分：6477 威望：0 精华：0 注册：2016/12/27 21:05:00

Post By：2020/2/5 11:26:00 [只看该作者]

比如记录中有个“身份证号码”的字段

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：107218 积分：545345 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/2/5 11:34:00 [只看该作者]

那要使用这种方式导入：http://www.foxtable.com/webhelp/topics/2334.htm，看第二段代码

主题：删除重复记录