以文本方式查看主题

-  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=136791)
--  作者：ezilu
--  发布时间：2019/6/21 16:01:00
--  单元格 重复值 筛选问题
效果：
 第一列                 
   1，1，2，3，4，4，5，5，6               

Dim nms As String = dr("第一列") 

现在我需要对这个数字集合进行逐个取值，但是不能重复：

For Each cus As String In 上面的不重复的值

Dim dr As DataRow = dt.AddNew()

dr("序号") = cus


做成临时表 这种效果

  1       
  2       
  3       
  4       
  5       
  6       

大大，这个循环取值怎么写？谢谢


[此贴子已经被作者于2019/6/21 16:02:56编辑过]
--  作者：有点甜
--  发布时间：2019/6/21 16:23:00
--  

Dim nms As String = "1,1,2,3,4,4,5,5,6"

Dim ls As new List(of String)
For Each cus As String In nms.split(",")
    If ls.Contains(cus) = False Then
        ls.add(cus)
        msgbox(cus)
    End If
Next