|
Dim dt As DataTable
Dim b As New GroupTableBuilder("tjjj",DataTables("检验"))
b.Groups.AddDef("日期",DateGroupEnum.none,"日期")
b.Groups.AddDef("日期",DateGroupEnum.Year,"年")
b.Groups.AddDef("日期",DateGroupEnum.Month,"月")
b.Groups.AddDef("日期",DateGroupEnum.day,"日")
b.Groups.AddDef("班别")
b.Totals.AddDef("投入",AggregateEnum.sum,"投入")
b.Totals.AddDef("已剔除",AggregateEnum.sum,"已剔除")
dt = b.Build(False) '参数设置为False,生成一个临时表,不在主界面显示
dt.DataCols.Add("不良率", Gettype(Double), "已剔除/投入")
dt.DataCols("不良率").SetFormat("0.00%")
|
加好友 
发短信
Post By：2015/5/14 17:38:00 [只看该作者]
