以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  Badge加上徽章 之后如何加上获取的不重复多值文字呢？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=160381)
--  作者：cnsjroom
--  发布时间：2021/1/31 15:09:00
--  Badge加上徽章 之后如何加上获取的不重复多值文字呢？
Badge加上徽章  之后如何加上获取的不重复多值文字呢？

Dim wb As New WeUI
Dim cmd111 As New SQLCommand
cmd111.Connec ti \'
cmd111.Comman dText = "Sel ect * From {dyxx}"
Dim dt As DataTable = cmd111.ExecuteReader
Dim zbmcs As List(Of String)
zbmcs=dt.GetValues("部门名称","单位名称= \'某公司\'")
For i As Integer = 0 To zbmcs.Count -1
Dim ybdys As List(Of String)
ybdys=dt.GetValues("姓名","单位名称= \'某公司\'and 员工类别=\'实习员工\'and 部门名称=\'" & zbmcs(i) & "\'")
    With wb.AddPanelGroup("",zbmcs(i),zbmcs(i))        
        With .Add(zbmcs(i),"【正式员工】","")
            .Badge=  dt.sqlcompute("count(姓名)","员工类别=\'正式员工\'and 部门名称=\'" & zbmcs(i) & "\'")
        End With
        With .Add(zbmcs(i),"【实习员工】",……,"")   ’怎么把上面获取的实习员工名单集合值显示在这里呢？
            .Badge=  dt.sqlcompute("count(姓名)","员工类别=\'实习员工\'and 部门名称=\'" & zbmcs(i) & "\'")
        End With
    End With
Next
e.WriteString(wb.Build) \'生成网页

想实现的是在实习员工这个栏目下   显示具体的实习员工名单
[此贴子已经被作者于2021/1/31 15:09:52编辑过]
--  作者：有点蓝
--  发布时间：2021/1/31 20:49:00
--  
With .Add(zbmcs(i),"【实习员工】",dt.GetComboListString("姓名","员工类别=\'实习员工\' and 部门名称=\'" & zbmcs(i) & "\'"))