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


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

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

帅哥哟,离线,有人找我吗?
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编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110663 积分:563229 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/2/7 10:14:00 [只看该作者]

Filler只能填充数据,没有分组功能。代码不是随便找2个不同功能的用法拼接到一起就能用的。

这种应该先做一个交叉统计;http://www.foxtable.com/webhelp/topics/0678.htm

然后把统计结果填充到需要的表格中

 回到顶部