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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]跨表计算的问题？谢谢！

共有2481人关注过本帖树形打印复制链接主题：[求助]跨表计算的问题？谢谢！

y2287958

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

等级：狐神帖子：4642 积分：33860 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2020/5/17 12:03:00 [显示全部帖子]

单数的计算规则是什么

y2287958

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

等级：狐神帖子：4642 积分：33860 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2020/5/17 16:50:00 [显示全部帖子]

Dim zd1,zd2 As new Dictionary(of String,Double)

For Each dr As DataRow In DataTables("派单").Select("交单=true")

For Each s As String In dr("员工").split(",")

Dim ss As String = dr("年月") & "," & s

If zd1.ContainsKey(ss) Then zd1(ss) += dr("人均值") Else zd1.add(ss,dr("人均值"))

If zd2.ContainsKey(ss) Then zd2(ss) += 1 Else zd2.add(ss,1)

For Each k As String In zd1.Keys

Output.Show(k & "," & zd1(k) & "," & zd2(k))

y2287958

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

等级：狐神帖子：4642 积分：33860 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2020/5/18 8:03:00 [显示全部帖子]

代码得出的结果是一样的

2020-06,李四,55,2

2020-06,张三,50,1

2020-06,陈六,5,1

[此贴子已经被作者于2020/5/18 8:04:26编辑过]

主题：[求助]跨表计算的问题？谢谢！