以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  能只显示汇总行不?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=63553)

--  作者:石四
--  发布时间:2015/1/23 12:57:00
--  能只显示汇总行不?
统计表能只显示汇总行不?好像教科书没有讲.
--  作者:Bin
--  发布时间:2015/1/23 13:59:00
--  
只显示汇总行? 那你不如生成一个临时统计表,自己编码填充统计


--  作者:有点甜
--  发布时间:2015/1/23 14:00:00
--  

 呃,不能。

 

 只显示汇总行,为什么不直接用分组统计


--  作者:石四
--  发布时间:2015/1/23 15:32:00
--  
好像COMPUTE可以解决问题,试试.
--  作者:石四
--  发布时间:2015/1/24 10:30:00
--  
 

Dim b1 As New SQLGroupTableBuilder("统计表1","销售明细")

b1.C

Dim dt1 As DataTable

b1.AddTable("销售明细","出库单号","销售出库","出库单号") \'添加统计表

b1.Groups.AddDef("日期",DateGroupEnum.Year,"年")

b1.Groups.AddDef("日期",DateGroupEnum.Month,"月")

b1.Groups.AddDef("零件图号")

b1.Groups.AddDef("客户名称") \'根据产品名称分组

b1.Groups.AddDef("零件名称")

b1.Totals.AddDef("数量") \'对数量进行统计

b1.Totals.AddDef("实收数") \'对数量进行统计

b1.Totals.AddExp("含税金额","实收数 * 1.17 * 单价")

dt1 = b1.Build(True) \'生成一个DataTable

 

Dim dtb As New DataTableBuilder("总表")

dtb.AddDef("年", Gettype(String), 16)

dtb.AddDef("月", Gettype(String), 16)

dtb.AddDef("客户名称", Gettype(String), 16)

dtb.AddDef("实收金额", Gettype(Double))

dtb.Build()

For Each nm() As String In dt1.GetValues("客户名称|年|月")

Dim dr As DataRow = DataTables("总表").AddNew()

    dr("客户名称") = nm(0)

    dr("年") = nm(1)

    dr("月") = nm(2)

    dr("实收金额") = dt1.Compute("Sum(含税金额)","客户名称 = \'" & nm(0) & "\'And [年] = \'" & nm(1) & "\'And [月] = \'" & nm(2) & "\'")

Next

MainTable= Tables("总表")


--  作者:石四
--  发布时间:2015/1/24 10:38:00
--  

还有另外一个"统计表2",能不能直接COMPUTE统计?或者只能再运行一个相似代码,用COMBINE的办法解决?

 

 

Dim b2 As New SQLGroupTableBuilder("统计表2","开票")

b2.C

Dim dt2 As DataTable 

b2.Groups.AddDef("日期",DateGroupEnum.Year,"年")

b2.Groups.AddDef("零件图号")

b2.Groups.AddDef("日期",DateGroupEnum.Month,"月")

b2.Groups.AddDef("客户名称") \'根据产品名称分组

b2.Groups.AddDef("零件名称")

b2.Totals.AddDef("开票_数量") \'对数量进行统计

b2.Totals.AddExp("开票_金额","开票_数量 * 单价")

b2.Totals.AddExp("开票_税额","开票_数量 * 0.17 * 单价")

b2.Totals.AddExp("开票_总额","开票_数量 * 1.17 * 单价")

dt2 = b2.Build(True) \'生成一个DataTable