主题：临时统计表计算

各位老师：我作了两个临时表，数据可以导出，但我想一个临时表1减去临时表2的一个数据，请指教

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.HorizontalTotal = True
b1.Subtotal = True '生成汇总模式
b1.Build  '生成统计表
MainTable = Tables("统计表1") '打开生成的统计表

Dim b As New SQLCrossTableBuilder("统计表2","制造质量管理")
b.C
b.Filter = "直行辅助 Like '%检' And 部门 = '制造' And 不良描述  Is not null And 日期 >= '" & e.form.controls("DateTimePicker4") .Value &   "' and 日期 < '" &e.form.controls("DateTimePicker6") .Value &   "'"
b.HGroups.AddDef("操作人")  '添加客户列用于水平分组
b.VGroups.AddDef("日期",DateGroupEnum.Year,"{0}年")  '添加日期列用于垂直分组,按年分组
b.VGroups.AddDef("日期","{0}月")  '添加日期列用于垂直分组,按月分组
b.Totals.AddDef("考核",AggregateEnum.Count)  '添加数量列用于统计
b.HorizontalTotal = True
b.Subtotal = True '生成汇总模式
b.Build  '生成统计表
MainTable = Tables("统计表2") '打开生成的统计表

  不良描述的计数减去考核的计数，这个代码试了好多办法，没有实现》

 

请各位老师费心！

谢谢

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)  '添加数量列用于统计

蓝老师：我的不良描述是个字符型的，运行时先提示找不到列，然后才运行！

 

 

此主题相关图片如下：微信图片_20190316152622.png

生成统计表后，打开统计表的表结构看看对应的列名是什么，自己改改