以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  筛选  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89399)
--  作者：铜豌豆之首
--  发布时间：2016/8/20 23:40:00
--  筛选
如何筛选出唯一值（若有多次重复显示一个，无重复也显示一个例如：122336，筛选后显示1236）
--  作者：y2287958
--  发布时间：2016/8/21 8:58:00
--  
http://www.foxtable.com/webhelp/scr/1478.htm
--  作者：大红袍
--  发布时间：2016/8/21 14:17:00
--  

 要先对你的表数据进行处理。

 

For Each dr As DataRow In DataTables("表A").datarows
    Dim str As String = ""
    For Each s As String In dr("第四列")
        If str.Contains(s) = false Then
            str = str & s
        End If
    Next
    dr("第四列") = str
Next

 

 然后看 http://www.foxtable.com/webhelp/scr/1478.htm