以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  临时统计表计算  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=132202)

--  作者: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") \'打开生成的统计表


--  作者:cxmxjwlmq
--  发布时间:2019/3/16 15:28:00
--  

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

 

 


图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20190316152622.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2019/3/16 15:28:19编辑过]

--  作者:有点蓝
--  发布时间:2019/3/16 15:37:00
--  
生成统计表后,打开统计表的表结构看看对应的列名是什么,自己改改