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

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 cmd As New SQ LCo mmand
cmd.Con nectio nNa me = "主数据源"
    cmd.CommandText = "select distinct 姓名 + ':' + 职务 as 列A from 干部台账 where 姓名 in ('" &  str.replace(",","','")  & "')"
    Dim dt as datatable = cmd.Executereader
output.show(dt.getcombostring("列A"))

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:科员

SQ没有问题，表格里肯定没有这个人的数据，或者姓名对不上

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

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

我不想这样的格式

 

刘X:科员

王X:科员 

 

这样的格式怎么操作呢？

output.show(dt.GetComboListString("备注").replace("|",vbcrlf))