以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何判断列是否存在的重复值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=39576)
--  作者：czy66ds
--  发布时间：2013/8/27 16:14:00
--  如何判断列是否存在的重复值
如题，如何判断某一列是否存在重复值并删除之？
--  作者：Bin
--  发布时间：2013/8/27 16:18:00
--  
datatables("XX").selecthttp://www.foxtable.com/help/topics/0400.htm
 看看数目是否超过1  是的话说明有重复
--  作者：czy66ds
--  发布时间：2013/8/27 16:31:00
--  
得用循环语句来判断吧？
--  作者：Bin
--  发布时间：2013/8/27 16:34:00
--  
是的
--  作者：有点甜
--  发布时间：2013/8/27 22:04:00
--  
 
 删除的参考代码

Dim t As Table =  Tables("表A")
t.Select(t.Rowsel,t.cols("第一列").Index)
syscmd.Filter.ShowRedundantValues
For i As Integer = t.Rows.Count -1 To 0 Step -1
    t.rows(i).Delete
Next
t.Datable.Save
t.filter = ""

 或者正常的删除

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
--  作者：czy66ds
--  发布时间：2013/8/28 10:33:00
--  谢BIN和有点甜，请解释一下代码。
谢谢版主和“有点甜”。请问有点甜：您能解释一下您提供的代码吗？我有点看不懂。