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

这是的，怎么解决呢。

 

这样不会报错了：

 

If id <> Nothing
    Tables("表A").Filter = id.substring(0,id.Length-4)   
End If

此主题相关图片如下：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列（字符型）不需全部列

If rr(lm) <> ""  改成： If rr.isnull(lm) = False

 

如果只是7列，就加个判断啊： if ci <= 6 .........

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

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

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

 

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

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