两表之间的汇总 ← <b><font color="#FF0000">专家坐堂</font></b> ← Foxtable(狐表)

下载信息 [文件大小：下载次数： ]
点击浏览该文件:外发材料.table

尊敬的师傅你好：

有两张表：一个是订单表，一个加工表（订单号是按订单表订单号）

要求自动汇总、统计，并些要对两表增加的内容，统计表自动刷新

1、同一订单号汇总订单数，加工数

统计的格式：

订单号订单数加工数结存数

。。。
。。。

。。。

合计

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

谢谢师傅

底部能不能加一个合计行

呵呵，这个我故意留给你做练习的。

还是请师傅呀

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(加工数)")

谢谢师傅

请问师傅，我上面同样的代码，把订单号为规格，为什么不好统计

上面有好几个规格，都改了吗？

都改了

标题：两表之间的汇总