- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 怎么从父表中提取子表中的的统计数据??? (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=11518)
-- 发布时间：2011/8/1 7:04:00
-- 怎么从父表中提取子表中的的统计数据???
文件要求,生成一个新的表,结构跟入库单一样.并计算出入库总数,,,,,,,入库总数=入库单明细之和.
(要求用代码实现)
就像跨表计算一样,但是要生成新的表,而且要计算,
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:12.zip |
[此贴子已经被作者于2011-8-1 7:24:40编辑过]
-- 发布时间：2011/8/1 7:15:00
--
怎么现在文件传不上呀,,
-- 发布时间：2011/8/1 7:24:00
--
压缩上传
-- 发布时间：2011/8/1 7:25:00
--
文件已传上来了
-- 发布时间：2011/8/1 8:15:00
--
你不是有入库总数吗?
计算的代码:DataTables("入库单明细").Compute("sum(数量)","入库单号=\'" & Tables("入库单").current("入库单号") & "\'"))
-- 发布时间：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
Next
t2.ResumeRedraw
MainTable = t2
-- 发布时间：2011/8/1 9:10:00
--
你的代码好像不对,我的入库总数是要根据入库单明细得出来的,你代码里没提到入库明细单
-- 发布时间：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("入库单号") & "\'")
Next
t2.ResumeRedraw
MainTable = t2