Dim b As New SQLGroupTableBuilder("零件加工完成统计表", "任务单")
b.C
b.AddTable("任务单", "任务单编号", "项目阶段", "任务单编号", JoinModeEnum.left)
b.AddTable("项目阶段", "项目段号", "零件加工", "项目段号", JoinModeEnum.left)
b.AddTable("零件加工", "工艺单编号", "工艺内容", "工艺单编号", JoinModeEnum.left)
b.AddTable("工艺内容", "工序号", "工步", "工序号", JoinModeEnum.left)
b.Groups.AddDef("加工人") \'根据产品名称分组
b.Groups.AddDef("{工艺内容}.完成加工日期", DateGroupEnum.Year, "年") \'根据日期按年分组
b.Totals.AddDef("实工") \'对数量进行统计
b.Build \'生成统计表
Maintable = Tables("零件加工完成统计表") \'打开生成的统计表