以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]查找重复值并删除重复值  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=60809)
--  作者：yanxin04
--  发布时间：2014/12/1 16:31:00
--  [求助]查找重复值并删除重复值
例如：表A 有两列 为 “第一列”，“第二列”，数据较多，要求是删除“第一列” 相同数据的里面，“第二列”数据的重复项目。操作是，逐条删选“第一列”，将第二列的重复数据删除，不知道如何用语句实现。
--  作者：Bin
--  发布时间：2014/12/1 16:34:00
--  
把重复筛选出来,然后删除 
--  作者：yanxin04
--  发布时间：2014/12/1 16:36:00
--  
数据上万条，希望用语句删除
--  作者：Bin
--  发布时间：2014/12/1 16:38:00
--  
用代码筛选,然后用代码遍历删除.
--  作者：yanxin04
--  发布时间：2014/12/1 16:39:00
--  
谢谢，我试试
--  作者：yanxin04
--  发布时间：2014/12/1 16:41:00
--  
我是两列，怎么编代码
--  作者：有点甜
--  发布时间：2014/12/1 16:43: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
--  作者：yanxin04
--  发布时间：2014/12/1 16:45:00
--  
谢谢各位指点，我试试。
--  作者：yanxin04
--  发布时间：2014/12/1 16:51:00
--  
还是有点甜的简单，谢谢。