求和代码优化 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，以下代码有比较优化点的吗？我求和之后，就6个毛坯编码，得用30秒时间。请帮忙看看，谢谢

If e.DataCol.Name = "成品编码" OrElse e.DataCol.Name = "毛坯编码" Then

Dim Filter As String = "[成品编码] = '" & e.DataRow("成品编码") & "' and [毛坯编码] = '" & e.DataRow("毛坯编码") & "'"

e.DataRow("工时") = DataTables("工序跟踪表").SQLCompute("Sum(循环时间)", Filter)

e.DataRow("直接材料_配件费用") = DataTables("工序跟踪表").SQLCompute("Sum(直接材料_配件成本)", Filter)

e.DataRow("直接工资_直接人工") = DataTables("工序跟踪表").SQLCompute("Sum(加工单价)", Filter)

e.DataRow("直接工资_社保费") = DataTables("工序跟踪表").SQLCompute("Sum(直接工资_社保费)", Filter)

e.DataRow("直接工资_福利费") = DataTables("工序跟踪表").SQLCompute("Sum(直接工资_福利)", Filter)

e.DataRow("直接工资_工时补助") = DataTables("工序跟踪表").SQLCompute("Sum(直接工资_工时补助)", Filter)

e.DataRow("制造费用_工资") = DataTables("工序跟踪表").SQLCompute("Sum(制造费用_工资)", Filter)

e.DataRow("制造费用_保险") = DataTables("工序跟踪表").SQLCompute("Sum(制造费用_保险)", Filter)

e.DataRow("制造费用_福利") = DataTables("工序跟踪表").SQLCompute("Sum(制造费用_福利)", Filter)

e.DataRow("制造费用_外协费用") = DataTables("工序跟踪表").SQLCompute("Sum(制造费用_外协费用)", Filter)

e.DataRow("制造费用_水费") = DataTables("工序跟踪表").SQLCompute("Sum(制造费用_水费)", Filter)

e.DataRow("制造费用_电费") = DataTables("工序跟踪表").SQLCompute("Sum(制造费用_电费)", Filter)

e.DataRow("制造费用_运输费") = DataTables("工序跟踪表").SQLCompute("Sum(制造费用_运输费)", Filter)

e.DataRow("制造费用_修理费") = DataTables("工序跟踪表").SQLCompute("Sum(制造费用_修理费)", Filter)

e.DataRow("制造费用_油料费") = DataTables("工序跟踪表").SQLCompute("Sum(制造费用_油料费)", Filter)

e.DataRow("制造费用_低值易耗") = DataTables("工序跟踪表").SQLCompute("Sum(制造费用_低值易耗)", Filter)

e.DataRow("制造费用_设备折旧") = DataTables("工序跟踪表").SQLCompute("Sum(制造费用_设备折旧)", Filter)

e.DataRow("制造费用_刀具修磨") = DataTables("工序跟踪表").SQLCompute("Sum(制造费用_刀具修磨)", Filter)

e.DataRow("制造费用_量检具费") = DataTables("工序跟踪表").SQLCompute("Sum(制造费用_量检具费)", Filter)

e.DataRow("制造费用_工装费用") = DataTables("工序跟踪表").SQLCompute("Sum(制造费用_工装费用)", Filter)

e.DataRow("管理费用_工资") = DataTables("工序跟踪表").SQLCompute("Sum(管理费用_工资)", Filter)

e.DataRow("直接材料_刀具费用") = DataTables("工序跟踪表").SQLCompute("Sum(直接材料_刀具费用)", Filter)

e.DataRow("管理费用_保险") = DataTables("工序跟踪表").SQLCompute("Sum(管理费用_保险)", Filter)

e.DataRow("管理费用_福利") = DataTables("工序跟踪表").SQLCompute("Sum(管理费用_福利)", Filter)

e.DataRow("管理费用_其他管理费") = DataTables("工序跟踪表").SQLCompute("Sum(管理费用_其他管理费)", Filter)

e.DataRow("制造费用_其他折旧") = DataTables("工序跟踪表").SQLCompute("Sum(制造费用_其他折旧)", Filter)

e.DataRow("制造费用_基础设施费") = DataTables("工序跟踪表").SQLCompute("Sum(制造费用_基础设施费)", Filter)

End If

主题：求和代码优化