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

作一按钮检查重复行

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

求教代码？

foxtable菜单不是有筛选重复行的功能。

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

直接筛选是没有办法的，用Select语句吧。

这样可以吗：

Dim 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("表A").focus

    Syscmd.Filter.ShowSameValues()
    For i As Integer = 0 To CurrentTable.count -1
        Dim rr As Row = Tables("表A").Rows(i)
        If rr(lm) <> ""
          '  If id.contains(Tables("表A").Rows(i)("_identify")) = False   
                id = id  & "[_identify] = " & Tables("表A").Rows(i)("_identify") & " or "
         '   End If
        End If
    Next

Next
output.show(id.substring(0,id.Length-4))
Tables("表A").Filter = id.substring(0,id.Length-4)

 

 顺便问一下老师们 ：‘上面粉红色的这个if语句有什么问题，怎么会提示错误呢 ？？

 

Tables("表A").Rows(i)("_identify")得出的值是整数

id.contains应该是判断是否包含字符

你先做转换整数型为字符型试试看

 

也不行，提示一样
此主题相关图片如下：未命名.jpg

知道了，缺少了个条件 If id Is Nothing  ··· else  ··· end if

 

这样所有列中有重复值时都可以筛选出来了：

 

With DataTables("表A")
    .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("表A").focus

        Syscmd.Filter.ShowSameValues()
        For i As Integer = 0 To CurrentTable.count -1
            Dim rr As Row = Tables("表A").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("表A").Filter = id.substring(0,id.Length-4)   
    .ResumeRedraw
End With

当一个重复也没有的时候会报错！