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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]内部函数统计问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=164152)

--  作者：爱秦宣言
--  发布时间：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
\'-------以上是定义部门栏-------------------------

--  作者：有点蓝
--  发布时间：2021/4/27 21:02:00
--
重复上面的循环代码，改为东台公司不就行了

--  作者：爱秦宣言
--  发布时间：2021/4/27 21:13:00
--
出现统计错误了，好像因为都是往一个部门字段里取数的原因

--  作者：有点蓝
--  发布时间：2021/4/27 21:16:00
--
出什么错？"词典"数据截图看看

--  作者：爱秦宣言
--  发布时间：2021/4/27 21:19:00
--

--  作者：有点蓝
--  发布时间：2021/4/27 21:37:00
--
For Each bmmc As String In DataTables("词典").GetComboListString("名称","类别 = \'上海\'","_identify").Split("|")

For Each bmmc As String In DataTables("词典").GetComboListString("名称","类别 = \'东台\'","_identify").Split("|")

--  作者：爱秦宣言
--  发布时间：2021/4/27 21:46:00
--

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

--  作者：爱秦宣言
--  发布时间：2021/4/27 21:46:00
--

--  作者：爱秦宣言
--  发布时间：2021/4/27 21:47:00
--

--  作者：有点蓝
--  发布时间：2021/4/27 21:56:00
--
使用不同的TopicPage 啊

Dim bm As WinForm.TopicPage = fll.Pages("部门")

Dim bm As WinForm.TopicPage = fll.Pages("部门2")

Dim bm As WinForm.TopicPage = fll.Pages("部门3")