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

Dim b1 As New SQLCrossTableBuilder("统计表1","制造质量管理")
b1.C
b1.Filter = "直行辅助 Like '%检' And 部门 = '制造' And 不良描述 Is not null And 日期 >= '" & e.form.controls("DateTimePicker4") .Value & "' and 日期 < '" &e.form.controls("DateTimePicker6") .Value & "'"
b1.HGroups.AddDef("操作人") '添加客户列用于水平分组
b1.VGroups.AddDef("日期",DateGroupEnum.Year,"{0}年") '添加日期列用于垂直分组,按年分组
b1.VGroups.AddDef("日期","{0}月") '添加日期列用于垂直分组,按月分组
b1.Totals.AddDef("不良描述",AggregateEnum.Count) '添加数量列用于统计

b1.Totals.AddDef("考核",AggregateEnum.Count) '添加数量列用于统计
b1.HorizontalTotal = True
b1.Subtotal = True '生成汇总模式
b1.Build '生成统计表

DataTables("统计表1").DataCols.Add("计数", Gettype(Integer), "[不良描述] - [考核]")
MainTable = Tables("统计表1") '打开生成的统计表

主题：临时统计表计算