|
Dim t As Table =Tables("生产数据统计_table6")
Dim b As new SQLCrossTableBuilder("统计表","SC生产数据表")
b.C
b.Filter = "车间='BCF' and 工序 in ('投料','纺丝','倍捻','定型') and 日期 > '2014-12-31'"
b.VGroups.AddDef("工序")
b.HGroups.AddDef("日期",DateGroupEnum.Year,"年")
b.HGroups.AddDef("日期",DateGroupEnum.Year,"月")
b.Totals.AddDef("数量")
b.Totals.AddDef("过渡丝")
b.Totals.AddDef("废丝量")
b.Totals.AddDef("排浆量")
b.Totals.AddExp("总数","[数量] + [过渡丝] + [废丝量] + [排浆量]")
b.Totals.AddExp("成品数","[数量] + [过渡丝]")
b.Totals.AddExp("成品率","([数量] + [过渡丝]) / ([数量] + [过渡丝] + [废丝量] + [排浆量])")
t.DataSource =b.BuildDataSource()
t.AutoSizeCols
|
加好友 
发短信
Post By：2015/4/1 14:34:00 [只看该作者]
