主题：[求助]内部函数统计问题

 

已做上海公司的部门统计，现在想实现东台分公司的部门统计，词典里已有字段，是否也可以对应员工资料表的中的部门列，上海公司对应上海公司部门，东台公司对应东台公司部门，请问如何实现

贴上 上海公司 统计代码

'--------以下是定义部门栏-----------------------
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(" ",24 - 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
'-------以上是定义部门栏-------------------------

 

东台的覆盖到上海的上面去了，上海部门没有了