共8 条记录, 每页显示 10 条, 页签: [1]

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

1楼

jackshen888 发表于：2011/8/1 7:04:00

文件要求,生成一个新的表,结构跟入库单一样.并计算出入库总数,,,,,,,入库总数=入库单明细之和.

(要求用代码实现)

就像跨表计算一样,但是要生成新的表,而且要计算,

下载信息 [文件大小：下载次数： ]
点击浏览该文件:12.zip

[此贴子已经被作者于2011-8-1 7:24:40编辑过]

2楼

jackshen888 发表于：2011/8/1 7:15:00

怎么现在文件传不上呀,,

3楼

don 发表于：2011/8/1 7:24:00

压缩上传

4楼

jackshen888 发表于：2011/8/1 7:25:00

文件已传上来了

5楼

blackzhu 发表于：2011/8/1 8:15:00

你不是有入库总数吗?

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

6楼

don 发表于：2011/8/1 8:29: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

t2.ResumeRedraw

MainTable = t2

7楼

jackshen888 发表于：2011/8/1 9:10:00

你的代码好像不对,我的入库总数是要根据入库单明细得出来的,你代码里没提到入库明细单

8楼

blackzhu 发表于：2011/8/1 9:50:00