以文本方式查看主题

-  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=39127)
--  作者：wuxianzuoji41
--  发布时间：2013/8/16 9:15:00
--  着急，如何判断一个表是否有重复的行
某个表，除了序号列之外（就是第一列不算，其他的列都算），如何判断其他的列是否有完全重复的行？
[此贴子已经被作者于2013-8-16 9:15:32编辑过]
--  作者：Bin
--  发布时间：2013/8/16 9:18:00
--  
http://www.foxtable.com/help/topics/2712.htm


你也可以循环列 然后使用 datatables(XX).select 然后判断获得的行数.
--  作者：czy
--  发布时间：2013/8/16 11:27:00
--  

笨办法

 

Dim ColValue As New List(Of String)
For Each dr As DataRow In DataTables("表B").DataRows
    If ColValue.Contains(dr("第一列") & "|" & dr("第二列") & "|" & dr("第三列") & "|" & dr("第四列") & "|" & dr("第五列") & "|" & dr("第六列")) Then
        dr.BaseRow("System_Filter_Unique") = 1
    Else
        ColValue.Add(dr("第一列") & "|" & dr("第二列") & "|" & dr("第三列") & "|" & dr("第四列") & "|" & dr("第五列") & "|" & dr("第六列"))
        dr.BaseRow("System_Filter_Unique") = Nothing
    End If
Next
Tables("表B").Filter = "[System_Filter_Unique] = 1"