怎么从父表中提取子表中的的统计数据??? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 怎么从父表中提取子表中的的统计数据???

共有13365人关注过本帖树形打印复制链接主题：怎么从父表中提取子表中的的统计数据???

blackzhu

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

等级：狐仙帖子：9875 积分：57584 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2011/8/1 8:15:00 [显示全部帖子]

你不是有入库总数吗?

计算的代码:DataTables("入库单明细").Compute("sum(数量)","入库单号='" & Tables("入库单").current("入库单号") & "'"))

blackzhu

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

等级：狐仙帖子：9875 积分：57584 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2011/8/1 9:50:00 [显示全部帖子]

Dim t1,t2 As Table

Dim i,n As Integer

t1 =Tables("入库单")

n =t1.Cols("入库总数").Index

Dim jb As New SQLJoinTableBuilder("查询表1","入库单")

jb.AddCols("{入库单}.*")

jb.Addexp("入库总数","0.1-0.1")

jb.build

t2 =Tables("查询表1")

t2.StopRedraw

t2.Cols("入库总数").Move(n)

For Each r As Row In t2.Rows

r("入库总数") = t1.Rows(i)("入库总数")

i+=1

r("入库总数") = DataTables("入库单明细").Compute("sum(数量)","入库单号='" & r("入库单号") & "'")

t2.ResumeRedraw

MainTable = t2

主题：怎么从父表中提取子表中的的统计数据???