[求助]SQL后台统计 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

请问下这个我改为后台统计为什么就不行了，报错了原来第一排是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("车间子项统计")

不好意思，代码贴错了,是这个，里面没有表达式，提示的是SQL语句错误，无法继续统计
图片点击可在新窗口打开查看

此主题相关图片如下：3.png

Dim g As New SQLGroupTableBuilder("日统计","检测项目")

g.Groups.AddDef("首次检测_检测时间", DateGroupEnum.Day, "日")

g.Totals.AddDef("检测人员_A")

g.Totals.AddDef("检测人员_B")

g.Totals.AddDef("检测人员_C")

g.Totals.AddDef("检测人员_D")

g.VerticalTotal = True

Dim rq As Date

With RibbonTabs("自定义1")("无损日统计表")

rq = .Items("rq").value

End With

g.Filter = "[首次检测_检测时间] = '" & rq & "'"

g.Build()

MainTable = Tables("日统计")

[此贴子已经被作者于2017/2/27 17:31:09编辑过]

别的都指定了，这个漏掉了~~~~

主题：[求助]SQL后台统计