以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于任务栏显示的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=78660)
--  作者：我来看看
--  发布时间：2015/12/14 16:24:00
--  [求助]关于任务栏显示的问题

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

 

\'--------以下是定义部门栏-----------------------
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
\'-------以上是定义部门栏-------------------------

[此贴子已经被作者于2015/12/14 16:23:58编辑过]
--  作者：大红袍
--  发布时间：2015/12/14 16:34:00
--  

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