以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  多个表如何快速去重复？最好是一次操作完成  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=65928)
--  作者：ccjida01
--  发布时间：2015/3/25 20:48:00
--  多个表如何快速去重复？最好是一次操作完成
我有10个表，每个表结构都是相同的，都有\'名称\'和\'序号\'两列，但这10个表中\'名称\'列中存在重复的数据，能不能用一次操作就能将这十个表格中的重复项去除？如何实现？
--  作者：有点甜
--  发布时间：2015/3/25 20:52:00
--  
删除重复值，有简单的办法，例如删除第一列重复值：
 
Tables("表A").RepeatFilter("第一列", 2)
DataTables("表A").DeleteFor(Tables("表A").Filter)
Tables("表A").Filter = ""
--  作者：有点甜
--  发布时间：2015/3/25 20:52:00
--  
或者正常的删除

Dim i As Integer
For i  = DataTables("表A").DataRows.Count-1 To 0 Step -1
    Dim dr As DataRow = DataTables("表A").DataRows(i)
    Dim dr2 As DataRow = DataTables("表A").Find("第一列=\'" & dr("第一列") & "\' and 第二列=\'" & dr("第二列") & "\' and _Identify <> " & dr("_Identify"))
    If dr2 IsNot Nothing Then
        dr2.Delete
    End If
Next
--  作者：ccjida01
--  发布时间：2015/3/25 21:05:00
--  这种方法只能删除1个表吧？我想要多个表一起删除
多个表，只处理一次就全部删除所有表中的重复项
--  作者：有点甜
--  发布时间：2015/3/25 21:12:00
--  

 表结构相同，就不要弄多个表，设计思路本来就有问题；

 

 建议把多个表合并成一个表，然后再删除重复。
--  作者：包头123
--  发布时间：2015/3/26 8:23:00
--  
顶。
--  作者：fangdejin
--  发布时间：2019/4/2 16:18:00
--  
甜版主的好用，准确~