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

这样可以吗：

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语句有什么问题，怎么会提示错误呢 ？？

 

也不行，提示一样
此主题相关图片如下：未命名.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

这是的，怎么解决呢。

 

这样不会报错了：

 

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

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

 

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