如何实现特殊的重复行筛选？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

这样可以吗：

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

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