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编辑过]
加好友 
发短信
Post By：2021/1/31 15:09:00 [只看该作者]
