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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 跨表计算平均值

共有2676人关注过本帖树形打印复制链接主题：跨表计算平均值

foxuser

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

等级：幼狐帖子：78 积分：750 威望：0 精华：0 注册：2017/7/19 12:42:00

跨表计算平均值 发帖心情

Post By：2018/9/25 11:16:00 [显示全部帖子]

A表有批号列（唯一）、基重_左、基重_中、基重_右列，B有批号、基重平均值列，录入批号后，统计A表基重平均值

foxuser

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

等级：幼狐帖子：78 积分：750 威望：0 精华：0 注册：2017/7/19 12:42:00

Post By：2018/9/25 18:08:00 [显示全部帖子]

这是跨表引用吧？

foxuser

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

等级：幼狐帖子：78 积分：750 威望：0 精华：0 注册：2017/7/19 12:42:00

Post By：2018/9/25 19:18:00 [显示全部帖子]

If e.DataCol.Name = "成品卷号" Then

If e.NewValue Is Nothing Then

e.DataRow("卷头基重") = Nothing

e.DataRow("卷芯基重") = Nothing

Else

Dim dr As DataRow

dr = DataTables("成品检验报表").Find("[成品卷号] = '" & e.NewValue & "'")

If dr IsNot Nothing Then

e.DataRow("卷头基重") = dr(("卷头基重_左") + ("卷头基重_中") +("卷头基重_右") /3 )

e.DataRow("卷芯基重") = dr(("卷心基重_左") + ("卷心基重_中") +("卷心基重_右") /3 )

End If

列是双精度小数

此主题相关图片如下：qq截图20180925191754.jpg

[此贴子已经被作者于2018/9/25 19:19:59编辑过]

主题：跨表计算平均值