专家坐堂-[求助]按月统计自动填充到当月Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

\'生成统计表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("派工_部件名称") & "\'")

MainTable= Tables("统计表A")

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

此主题相关图片如下：qq截图20220207095932.png