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

甜版，我研究了下SQL统计，根据设想及例子作出如下代码，但有错误，请您帮忙看下，哪里有问题，除图外还出现过一个叫什么，至少有一个值未被指定，

Dim jsrQ As WinForm.ComboBox = e.Form.Controls("ComboBox7")

Dim b As New SQLGroupTableBuilder("统计表1","明细根表")

b.Groups.AddDef("运输审核_结算月", "结算月")

b.Groups.AddDef("生产信息_车号", "车号")

b.Totals.AddDef("运量", "砼运输_方量")

b.Totals.AddDef("运", "[运] = 'Y'" ,AggregateEnum.Count)

b.Totals.AddDef("生产信息_类型", "[生产信息_类型] = '砼'" , "砼运输_车数" , AggregateEnum.Count) '统计类型是砼的车数

b.Totals.AddDef("运量", "砼运输_方量")

b.Totals.AddDef("运输_砼运额", "砼运输_金额")

b.Totals.AddDef("运输_砼补方", "砼补方_方量")

b.Totals.AddDef("运输_砼补额", "砼补方_金额")

b.Totals.AddDef("生产信息_类型", "[生产信息_类型] = '水'" , "水运输_车数" , AggregateEnum.Count)'统计类型是水的车数

b.Totals.AddDef("运输_水运额", "水运输_金额")

b.Totals.AddDef("公司补助_补运额", "运输补助")

b.Totals.AddDef("公司补助_补超额", "超时补助")

b.Totals.AddDef("公司补助_补其额", "其他费用")

b.VerticalTotal = True

b.Filter = "[运输审核_结算月] = '" & jsrQ.text & "' "

b.Build

MainTable = Tables("数据统计_Table5")

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

主题：[统计]条件统计代码－