以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  重复值  (http://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