以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何获取集合中的唯一值  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=64091)
--  作者：cyl123
--  发布时间：2015/2/4 19:37:00
--  如何获取集合中的唯一值
如何获取集合中的唯一值
--  作者：有点甜
--  发布时间：2015/2/4 19:38:00
--  
 请具体一点你的问题，什么集合。
--  作者：cyl123
--  发布时间：2015/2/4 19:41:00
--  
Dim a As new List(of String)
Dim b As new List(of String)
a.Add("ab")
b.Add("ab")
a.AddRange(b)

For Each nm As String In a
    Output.Show(nm)
Next

输出是 ab  ab  ，如何获取不重复值
--  作者：有点甜
--  发布时间：2015/2/4 19:43:00
--  

Dim a As new List(of String)
Dim b As new List(of String)
a.Add("ab")
b.Add("ab")
a.AddRange(b)

b.Clear
For Each nm As String In a
    If b.Contains(nm) = False Then
        b.Add(nm)
        Output.Show(nm)
    End If
Next