Foxtable(狐表)用户栏目专家坐堂 → 多列统计增加列


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

主题:多列统计增加列

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


加好友 发短信
等级:二尾狐 帖子:575 积分:4709 威望:0 精华:0 注册:2014/7/3 15:28:00
多列统计增加列  发帖心情 Post By:2019/6/27 13:12:00 [只看该作者]

各位老师,用如下代码进行三表统计,请问我现在想到统计表里面增加一列“库存数量”,其值“库存数量”=“库存管理”表里面的值“库存数量”,代码该怎么写?

Dim   bd1 As  New   GroupTableBuilder("统计表2",DataTables("订单明细"))
Dim  dt1 As   fxDataSource
 bd1.Groups.AddDef("名称")  '根据型号分组
bd1.Totals.AddDef("需求数量","订单需求_需求数量")  '对数量进行统计
bd1.Totals.AddDef("欠领料","订单需求_欠领料")  '对金额进行统计
dt1 =   bd1.BuildDataSource()

 Dim  bd2 As  New   GroupTableBuilder("统计表3",DataTables("PMC车间计划"))
Dim  dt2  As   fxDataSource
 bd2.Groups.AddDef("名称")  '根据型号分组
bd2.Totals.AddDef("计划数量","生产计划_计划数量")  '对数量进行统计
bd2.Totals.AddDef("欠生产","生产计划_欠生产")  '对金额进行统计
dt2 =   bd2.BuildDataSource()

Dim   bd3 As  New   GroupTableBuilder("统计表4",DataTables("物料需求计划"))
Dim  dt3 As   fxDataSource
 bd3.Groups.AddDef("名称")  '根据型号分组
bd3.Totals.AddDef("计划数量","采购计划_计划数量")  '对数量进行统计
bd3.Totals.AddDef("欠入库","采购计划_欠入库")  '对金额进行统计
 dt3 =  bd3.BuildDataSource()

 

dt1.Combine("名称",dt2,"名称")  '将销售统计数据组合到进货统计数据
dt1.Combine("名称",dt3,"名称")  '将退货统计数据组合到进货统计数据

Forms("物料统计").Open

 

Tables("物料统计_Table1").DataSource =   dt1  '将统计结果绑定到Table
 With  DataTables("物料统计_Table1").DataCols  '用表达式列计算库存数据
    .Add("物料统计_需求数量",Gettype(Integer),  "IsNull([生产计划_欠生产],0) + ISNULL([采购计划_欠入库],0) + ISNULL([库存管理_库存数量],0) - ISNULL([订单需求_欠领料],0)")
     
End With


 回到顶部