专家坐堂-如何在表数据输入重复字段后自动删除其中重复的值Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  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=105969)

--  作者：zhuya820
--  发布时间：2017/8/30 8:24:00
--  如何在表数据输入重复字段后自动删除其中重复的值
如何在表数据输入重复字段后自动删除其中重复的值
dim str = "A1|A1|A1|B1|B1|C1"

查找删除重复字符

str = "A1|B1|C1“

--  作者：有点甜
--  发布时间：2017/8/30 8:38:00
--
Dim str = "A1|A1|A1|B1|B1|C1"
Dim ls As new List(Of String)
For Each s As String In str.split("|")
    If ls.Contains(s) = False Then
        ls.add(s)
    End If
Next
str = String.join("|", ls.ToArray)
msgbox(str)