'定义一个GroupTableBuilder,名称为"统计表2",对采购明细表进行统计.
Dim ba As New GroupTableBuilder("统计表5",DataTables("出库"))
ba.Groups.AddDef("型号") '根据型号分组
ba.groups.AddDef("出库日期") '对出库日期进行分组
ba.Totals.AddDef("出库数量") '对数量进行统计
ba.Totals.AddDef("金额") '对金额进行统计
ba.Totals.AddDef("利润") '对利润进行统计
ba.Subtotal = True '生成汇总模式
ba.VerticalTotal = True '自动垂直汇总
ba.GrandProportion = True
Tables("采购管理_Table14").DataSource = ba.BuildDataSource()
我前面单独有段代码统计月出库型号出库数量,统计数据和刚才的数据不一样,这是此代码的截图
![dvubb](skins/default/filetype/jpg.gif)
此主题相关图片如下:无标题2.jpg
![dvubb 按此在新窗口浏览图片](UploadFile/2014-9/20149111755943779.jpg)
Dim cmd As
New SQLCommand
Dim dt As DataTable
cmd.CommandText = "Select
{出库}.*, {采购明细}.供应商 FROM {出库} INNER JOIN {采购明细} ON {采购明细}.型号= {出库}.型号"
dt = cmd.ExecuteReader()
'对临时进行分组统计
Dim b As New CrossTableBuilder("统计表111",dt)
b.HGroups.AddDef("供应商")
b.HGroups.AddDef("型号")
b.VGroups.AddDef("出库日期","{0}月")
b.Totals.AddDef("出库数量")
b.HorizontalTotal = True
b.VerticalTotal = True
Tables("采购管理_Table18").DataSource = b.BuildDataSource()
这是此代码的截图
此主题相关图片如下:无标题1.jpg
![dvubb 按此在新窗口浏览图片](UploadFile/2014-9/201491117554510454.jpg)