以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  删除表A中编号重复的行的代码怎么写？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=59508)
--  作者：狂风暴雨狂波
--  发布时间：2014/11/5 16:29:00
--  删除表A中编号重复的行的代码怎么写？
表A中有一“编号”列，要删除“编号”重复的行代码怎么写？请教高手指点
--  作者：有点甜
--  发布时间：2014/11/5 16:31:00
--  
Tables("表A").RepeatFilter("第一列", 2)
DataTables("表A").DeleteFor(Tables("表A").Filter)
Tables("表A").Filter = ""
--  作者：有点甜
--  发布时间：2014/11/5 16:32: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 _Identify <> " & dr("_Identify"))
    If dr2 IsNot Nothing Then
        dr2.Delete
    End If
Next
--  作者：Bin
--  发布时间：2014/11/5 16:32:00
--  
重复值筛选 http://www.foxtable.com/help/topics/2712.htm

再删除筛选出来的行
--  作者：有点甜
--  发布时间：2014/11/5 16:34: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 _Identify <> " & dr("_Identify"))
    If dr2 IsNot Nothing Then
        dr2.Delete
    End If
Next