Foxtable(狐表)用户栏目专家坐堂 → 临时统计表计算


  共有2017人关注过本帖平板打印复制链接

主题:临时统计表计算

帅哥哟,离线,有人找我吗?
cxmxjwlmq
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:343 积分:3921 威望:0 精华:0 注册:2018/4/6 18:02:00
临时统计表计算  发帖心情 Post By: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") '打开生成的统计表

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

 

请各位老师费心!

谢谢


 回到顶部