- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 两表之间的汇总 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=9260)
-- 发布时间：2011/3/22 13:59:00
-- 两表之间的汇总
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:外发材料.table |
尊敬的师傅你好：
有两张表：一个是订单表，一个加工表（订单号是按订单表订单号）
要求自动汇总、统计，并些要对两表增加的内容，统计表自动刷新
1、同一订单号汇总订单数，加工数
统计的格式：
订单号 订单数 加工数 结存数
。。。
。。。
。。。
。。。
合计
-- 发布时间：2011/3/22 15:05:00
--
Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("订单号", Gettype(String), 32)
dtb.AddDef("订单数", Gettype(Integer), 32)
dtb.AddDef("加工数", Gettype(Integer))
dtb.AddDef("结存数", Gettype(Double),"订单数 - 加工数")
dtb.Build()
Dim lst As List(of String) = DataTables("导线订单").GetUniqueValues("","订单号")
Dim dr As DataRow
For Each dd As String In lst
dr = DataTables("统计").AddNew()
dr("订单号") = dd
dr("订单数") = DataTables("导线订单").Compute("Sum(订单数)","订单号 = \'" & dd & "\'")
dr("加工数") = DataTables("订单加工").Compute("Sum(加工数)","订单号 = \'" & dd & "\'")
Next
-- 发布时间：2011/3/22 15:18:00
--
谢谢师傅
底部能不能加一个合计行
-- 发布时间：2011/3/22 15:19:00
--
呵呵，这个我故意留给你做练习的。
-- 发布时间：2011/3/22 15:20:00
--
还是请师傅呀
-- 发布时间：2011/3/22 15:28:00
--
Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("订单号", Gettype(String), 32)
dtb.AddDef("订单数", Gettype(Integer), 32)
dtb.AddDef("加工数", Gettype(Integer))
dtb.AddDef("结存数", Gettype(Double),"订单数 - 加工数")
dtb.Build()
Dim lst As List(of String) = DataTables("导线订单").GetUniqueValues("","订单号")
Dim dr As DataRow
For Each dd As String In lst
dr = DataTables("统计").AddNew()
dr("订单号") = dd
dr("订单数") = DataTables("导线订单").Compute("Sum(订单数)","订单号 = \'" & dd & "\'")
dr("加工数") = DataTables("订单加工").Compute("Sum(加工数)","订单号 = \'" & dd & "\'")
Next
dr = DataTables("统计").AddNew()
dr("订单号") = "合计"
dr("订单数") = DataTables("导线订单").Compute("Sum(订单数)")
dr("加工数") = DataTables("订单加工").Compute("Sum(加工数)")
-- 发布时间：2011/3/22 15:32:00
--
谢谢师傅
-- 发布时间：2011/3/22 15:55:00
--
请问师傅，我上面同样的代码，把订单号为规格，为什么不好统计
-- 发布时间：2011/3/22 16:11:00
--
上面有好几个规格，都改了吗？
-- 发布时间：2011/3/22 16:13:00
--
都改了