[求助]内部函数统计问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]内部函数统计问题

共有3318人关注过本帖树形打印复制链接主题：[求助]内部函数统计问题

爱秦宣言

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：65 积分：554 威望：0 精华：0 注册：2019/12/13 9:17:00

[求助]内部函数统计问题 发帖心情

Post By：2021/4/27 20:55: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(" ",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
'-------以上是定义部门栏-------------------------