以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  重复值  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=53893)

--  作者：tujiu --  发布时间：2014/7/17 15:37:00 --  重复值 重复值筛选除了使用RepeatFilter这个方法外，还有别的方式吗？用代码实现。

--  作者：Bin --  发布时间：2014/7/17 15:41:00 --   http://www.foxtable.com/help/topics/2712.htm RepeatFilter就是代码来的哦.

--  作者：有点甜 --  发布时间：2014/7/17 15:41:00 --   Dim filter As String = "1=2" For Each bh As String In DataTables("表A").GetValues("编号")     Dim count As Integer = DataTables("表A").Compute("count(_Identify)", "编号 = \'" & val(bh) & "\'")     If count > 1 Then         filter &= " or 编号 = \'" & bh & "\'"     End If Next Tables("表A").filter = filter