有大神在吗?能帮忙看看吗?以下代码是否还有优化的方法呢,目前统计还是要等很久时间才能统计完成8
Dim b As New sqlGroupTableBuilder("统计表1", "工序跟踪表")
网页链接 = "条码扫描系统数据库"
b.Groups.AddDef("成品编码", "成品编码") '根据产品分组
b.Groups.AddDef("毛坯编码", "毛坯编码") '根据产品分组
b.Totals.AddDef("循环时间") '对数量进行统计
b.Totals.AddDef("加工单价") '对数量进行统计
b.Totals.AddDef("直接材料_配件成本") '对数量进行统计
Dim dt As DataTable = b.Build(True)
For Each dr As DataRow In 网页链接 e.DataRow("工时") = dr("循环时间")
e.DataRow("直接材料_配件费用") = dr("直接材料_配件成本")
e.DataRow("直接工资_直接人工") = dr("加工单价")
Next
Dim b As New sqlGroupTableBuilder("统计表1", "工序跟踪表")
网页链接 = "条码扫描系统数据库"
b.Groups.AddDef("成品编码", "成品编码") '根据产品分组
b.Groups.AddDef("毛坯编码", "毛坯编码") '根据产品分组
b.Totals.AddDef("循环时间") '对数量进行统计
b.Totals.AddDef("加工单价") '对数量进行统计
b.Totals.AddDef("直接材料_配件成本") '对数量进行统计
Dim dt As DataTable = b.Build(True)
For Each dr As DataRow In 网页链接 e.DataRow("工时") = dr("循环时间")
e.DataRow("直接材料_配件费用") = dr("直接材料_配件成本")
e.DataRow("直接工资_直接人工") = dr("加工单价")
Next