-- 作者:cxmxjwlmq
-- 发布时间:2019/3/16 14:47:00
-- 临时统计表计算
各位老师:我作了两个临时表,数据可以导出,但我想一个临时表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") \'打开生成的统计表
不良描述的计数减去考核的计数,这个代码试了好多办法,没有实现》
请各位老师费心!
谢谢
|
-- 作者:有点蓝
-- 发布时间:2019/3/16 14:53:00
--
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") \'打开生成的统计表
|