主题：着急，如何判断一个表是否有重复的行

笨办法

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"