以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 删除重复记录 (http://foxtable.com/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,看第二段代码 |