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"))