以文本方式查看主题 - 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 |