Dim bm As WinForm.TopicPage = fll.Pages("部门村居")
bm.Links.Clear
For Each bmmc As String In DataTables("自定义字段").GetComboListString("名称","类别 = \'部门村居\'","_identify").split("|")
Dim kg As String = new String ("",16-bmmc.Length*2) \'定义kg的空格字符串,长度为16-部门名称的长度*2
bm.Links.Add(bmmc,bmmc & kg & "(" & DataTables("员工资料").sqlCompute("count(_identify)","部门村居 = \'" & bmmc & "\'") & "人)" )
Next