Foxtable(狐表)用户栏目专家坐堂 → [求助]按月统计自动填充到当月


  共有4325人关注过本帖树形打印复制链接

主题:[求助]按月统计自动填充到当月

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


加好友 发短信
等级:婴狐 帖子:14 积分:200 威望:0 精华:0 注册:2022/1/25 15:06:00
[求助]按月统计自动填充到当月  发帖心情 Post By:2022/2/7 10:03:00 [显示全部帖子]


RT
老师我想做成把表  “粗加工派工单”,按月度统计到另外一张表。

图片点击可在新窗口打开查看此主题相关图片如下:02.png
图片点击可在新窗口打开查看

代码如下
'生成统计表A
Dim dtb As New DataTableBuilder("统计表A")
dtb.AddDef("派工_部件名称", Gettype(String), 32)
dtb.AddDef("派工_数量", Gettype(Double))
dtb.Build()
'按月分组
Dim f As New Filler
f.SourceTable = DataTables("粗加工派工单")
f.SourceCols = "派工_部件名称"
f.DataTable = DataTables("统计表A")
f.DataCols = "派工_部件名称"
f.Groups.AddDef("日期", DateGroupEnum.Year, "年")
f.Groups.AddDef("日期", "月")
f.Totals.AddDef("派工_数量")
f.SamePeriodGrowth = True
f.CircleGrowth= True
f.Build()
'统计每个月产品数量
For Each dr As DataRow In DataTables("统计表A").DataRows
    dr("派工_数量") = DataTables("粗加工派工单").Compute("Sum(派工_数量)","[派工_部件名称] = '" & dr("派工_部件名称") & "'")
Next
MainTable= Tables("统计表A")


执行不了,请问老师是哪里写错了



图片点击可在新窗口打开查看此主题相关图片如下:qq截图20220207095932.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2022/2/7 10:04:18编辑过]

 回到顶部