主题：[求助]关于任务栏显示的问题

Dim fll As WinForm.TopicBar = Forms("主窗体").Controls("分类栏")
Dim bm As WinForm.TopicPage = fll.Pages("部门")
bm.Links.Clear
Dim bmmcs As object
If user.Group = "管理员" Then
    bmmcs = DataTables("词典").GetComboListString("名称","类别 = '部门'","_identify").Split("|")
Else
    bmmcs = user.Group.Split(",")
End If

For Each bmmc As String In bmmcs
    Dim kg As String = new String(" ",12 - bmmc.Length*2)   '定义前面的对齐空格
    Dim rs As String = DataTables("职工信息").Compute("count(_identify)","部门 = '" & bmmc & "'")  '定义统计的数量
    Dim kg2 As String = new String(" ",3-rs.Length)
    bm.Links.Add(bmmc,bmmc & kg & "(" & kg2 & rs  & "人)")
Next