主题：如何实现特殊的重复行筛选？

作一按钮检查重复行

在表A中如果a,b,c,d,e.f.g列有数据相同超过2行则视为重复，并且全部筛选出来。

求教代码？

foxtable菜单筛选重复行不能实现我要的功能

此主题相关图片如下：2011-2-16 22-26-05.png

With DataTables("申请表")
    .StopRedraw
    Dim id0,id As String
    For ci As Integer = 0 To CurrentTable.cols.count -1
        CurrentTable.Filter = ""
        Dim lm As String = CurrentTable.cols(ci).name
        CurrentTable.Select(0,ci)
        Tables("申请表").focus
       
        Syscmd.Filter.ShowSameValues()
        For i As Integer = 0 To CurrentTable.count -1
            Dim rr As Row = Tables("申请表").Rows(i)
            If rr(lm) <> ""
                Dim ide As String = rr("_identify")
               
                If id Is Nothing
                    id = id  & "[_identify] = " & rr("_identify") & " or "
                Else
                    If id <> "" And id.contains(ide) = False
                        id = id  & "[_identify] = " & rr("_identify") & " or "
                    End If
                End If
            End If
        Next
        'Exit For
    Next
   
    Tables("申请表").Filter = id.substring(0,id.Length-4)
    .ResumeRedraw
End With

 只要判断7列（字符型）不需全部列

从上代码效率极低以至等不到执行结束只好调用任务管理器强行终止

用SQL查找重复行,网上找得

SELECT period,represnum,artgrpnum, count(*)
FROM d_kpigrade
GROUP BY period,represnum,artgrpnum
HAVING count(*) > 1

 

 乡名,村名,组别,单位（个人）,法定代表人,小地名,小班号, 主要树种,面积

以上单元格内容相同的行超过2行视为重复