后者参考
Dim b As New SQLGroupTableBuilder("日统计_车间统计", "检测项目")
b.Groups.Adddef("首次检测_检测时间", DateGroupEnum.Day, "日")
b.Groups.AddDef("车间")
b.Totals.AddDef("首次检测_检测量")
b.Totals.AddDef("首次检测_返修量")
b.VerticalTotal = True
Dim rq As Date
With RibbonTabs("自定义1")("无损日统计表")
rq = .Items("rq1").value
End With
b.Filter = "[首次检测_检测时间] = #" & rq & "#"
b.Build()
With DataTables("日统计_车间统计").DataCols '用表达式列计算库存数据
.Add("合格率",Gettype(Double), "1 - 首次检测_返修量 / 首次检测_检测量")
End With
DataTables("日统计_车间统计").datacols("合格率")..SetFormat("00.0%")
MainTable = Tables("日统计_车间统计")
加好友 
发短信
Post By：2016/10/22 15:40:00 [显示全部帖子]
