主题：多值字段拆分之后 组合字符串 得到的是多条重复数据，怎么修正呢？

Functions.Execute("谈话参与人多值拆分获取职务","王x,刘x","33d77272-30d8-411f-957b-e5ea137613ce")

内部函数代码如下：

Dim str As String = Args(0)
Dim guid As String = Args(1)
Dim ss As String =""
Dim cmd As New SQ LCo mmand
cmd.Con nectio nNa me = "主数据源"
For Each s As String In str.split(",")    '对传入的值进行拆分
    cmd.CommandText = "sel ect 姓名,职务 from 干部台账 where 姓名='" &  s & "'"
    Dim Values = cmd.ExecuteValues
    If Values.Count > 0 Then
        ss=  Values("姓名") & ":" & Values("职务")
        ss = ss & vbcrlf & ss
    End If
   
Next
output.show(ss)

输出得到：

王x:科员
王x:科员

上述代码怎么修正得到：

王x:科员
刘x:科员

Dim str As String = Args(0)
Dim guid As String = Args(1)
Dim ss As String =""
Dim cmd As New SQL Co mmand
cmd.Conn ect ion Name = "主数据源"
 cmd.CommandText = "sel ect distinct 姓名 + ':' + 职务 as 备注 from 干部台账 where 姓名 in ('" &  str.replace(",","','")  & "')"
output.show(cmd.CommandText)
Dim dt As DataTable = cmd.Executereader
output.show(dt.GetComboListString("备注"))

输出得到

sel ect distinct 姓名 + ':' + 职务 as 备注 from 干部台账 where 姓名 in ('王X','刘X')
王x:科员

还差一个  刘X:科员

经查系名字中间带有空格  修正后

得到：刘X:科员|王X:科员 

我不想这样的格式

刘X:科员

王X:科员 

这样的格式怎么操作呢？