Foxtable(狐表)用户栏目专家坐堂 → 如何从讲话点事表中获取所点组织不重复的值赋值给bb2 (1,2,3多值形式!)


  共有6773人关注过本帖树形打印复制链接

主题:如何从讲话点事表中获取所点组织不重复的值赋值给bb2 (1,2,3多值形式!)

帅哥哟,离线,有人找我吗?
cnsjroom
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
如何从讲话点事表中获取所点组织不重复的值赋值给bb2 (1,2,3多值形式!)  发帖心情 Post By:2022/8/5 17:32:00 [只看该作者]

如何从讲话点事表中获取所点组织不重复的值赋值给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

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110569 积分:562735 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
回复:(有点蓝)        For Ea...  发帖心情 Post By:2022/8/5 17:45:00 [只看该作者]

谢谢老师

 回到顶部
帅哥哟,离线,有人找我吗?
chnfo
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2239 积分:18446 威望:0 精华:0 注册:2011/11/26 20:21:00
  发帖心情 Post By:2022/8/7 18:55:00 [只看该作者]

Dim Names1 As New hashset(Of object)

 回到顶部