-- [求助]SQL后台统计
请问下这个我改为后台统计为什么就不行了,报错了原来第一排是Dim g As New GroupTableBuilder("车间子项统计",DataTables("检测项目"))
Dim g As New SQLGroupTableBuilder("车间子项统计","检测项目")
g.C
g.Groups.AddDef("首次检测_检测时间", DateGroupEnum.Day, "日")
g.Groups.AddDef("车间")
g.Groups.AddDef("工程名称")
g.Groups.AddDef("子项名称")
g.Totals.AddDef("首次检测_检测量")
g.Totals.AddDef("首次检测_返修量")
g.VerticalTotal = True
Dim rq As Date
With RibbonTabs("自定义1")("无损日统计表")
rq = .Items("rq2").value
End With
g.Filter = "[首次检测_检测时间] = \'" & rq & "\'"
g.Build()
MainTable = Tables("车间子项统计")
With DataTables("车间子项统计").DataCols \'用表达式列计算库存数据
.Add("合格率",Gettype(Double), "1 - 首次检测_返修量 / 首次检测_检测量")
End With
DataTables("车间子项统计").datacols("合格率").SetFormat("00.0%")
MainTable = Tables("车间子项统计")