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编辑过]