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

我有一个词典表，利用这个表设置部门名称，在任务栏能够自动显示出字典的所有部门名称和人数，但是我现在想各部门用户登陆后，在任务栏的按部门分类里面只能看到本部门的名称和人数，管理员登陆后能显示看到全部的部门名称和人数，请教如何修改代码？？

'--------以下是定义部门栏-----------------------
Dim fll As WinForm.TopicBar = Forms("主窗体").Controls("分类栏")
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(" ",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
'-------以上是定义部门栏-------------------------

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