以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何从讲话点事表中获取所点组织不重复的值赋值给bb2 （1,2,3多值形式！）  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=179073)
--  作者：cnsjroom
--  发布时间：2022/8/5 17:32:00
--  如何从讲话点事表中获取所点组织不重复的值赋值给bb2 （1,2,3多值形式！）
如何从讲话点事表中获取所点组织不重复的值赋值给bb2  （1,2,3多值形式！）

当前代码如下：【运行后会将所有所点组织的值显示出来，不能去重，有没有办法去重呢？当前会生成1,2,2,3,4类似重复值存在】
cmd3.Com mandText ="se lect * fro m 讲话点事 where 主表guid=\'" & e.Values("guid") & "\'"
    Dim dt3 As DataTable = cmd3.ExecuteReader()
    If dt3.DataRows.Count>0 Then
        Dim dr3 As DataRow =dt3.DataRows(0)
        Dim drs1 As List(of DataRow)  =dt3.SQLSelect("主表guid=\'" & e.Values("guid") & "\'")
        Dim Names1 As New List(Of object)
        For Each rr1 As DataRow In drs1
            Names1.add(rr1("所点组织"))
        Next
        If dr3 IsNot Nothing Then
            bb2=String.join(";",Names1.toarray) & ";"
        Else
            bb2=""
        End If 
        dr1("所点组织") = bb2
    End If
--  作者：有点蓝
--  发布时间：2022/8/5 17:37:00
--  
        For Each rr1 As DataRow In drs1
if Names1.contains(rr1("所点组织")) = false
            Names1.add(rr1("所点组织"))
end if
        Next
--  作者：cnsjroom
--  发布时间：2022/8/5 17:45:00
--  回复：（有点蓝）        For Ea...
谢谢老师
--  作者：chnfo
--  发布时间：2022/8/7 18:55:00
--  
Dim Names1 As New hashset(Of object)