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

新建了一个数据表，然后用手工编码写了个统计代码，但是统计的效率好低，统计20行数据要用时10秒，但用foxtable自带的统计工具却可以秒开，不知道哪里出问题了，求解。

Dim dr As DataRow = Args(0)

Dim dt As DataTable = DataTables("生产过程进度追溯表")

dr("投料数量") = dt.SQLCompute("Sum(投料数量)", "备用2 = '" & dr("销售计划号") & "'")

dr("入库数量") = dt.SQLCompute("Sum(入库数量)", "备用2 = '" & dr("销售计划号") & "'")

dr("报废数量") = dt.SQLCompute("Sum(报废数量)", "备用2 = '" & dr("销售计划号") & "'")

dr("粗车") = dt.SQLCompute("Sum(粗车完成数量)", "备用2 = '" & dr("销售计划号") & "'")

dr("割圈") = dt.SQLCompute("Sum(割圈完成数量)", "备用2 = '" & dr("销售计划号") & "'")

dr("镗孔") = dt.SQLCompute("Sum(镗孔完成数量)", "备用2 = '" & dr("销售计划号") & "'")

dr("铰孔") = dt.SQLCompute("Sum(铰孔完成数量)", "备用2 = '" & dr("销售计划号") & "'")

dr("半精车") = dt.SQLCompute("Sum(半精车完成数量)", "备用2 = '" & dr("销售计划号") & "'")

dr("精车I") = dt.SQLCompute("Sum(精车I完成数量)", "备用2 = '" & dr("销售计划号") & "'")

dr("精车II") = dt.SQLCompute("Sum(精车II完成数量)", "备用2 = '" & dr("销售计划号") & "'")

dr("光刀") = dt.SQLCompute("Sum(光刀完成数量)", "备用2 = '" & dr("销售计划号") & "'")

dr("滚道淬") = dt.SQLCompute("Sum(滚道淬火完成数量)", "备用2 = '" & dr("销售计划号") & "'")

dr("车圆弧") = dt.SQLCompute("Sum(车圆弧完成数量)", "备用2 = '" & dr("销售计划号") & "'")

dr("齿加工") = dt.SQLCompute("Sum(齿加工完成数量)", "备用2 = '" & dr("销售计划号") & "'")

dr("齿倒角") = dt.SQLCompute("Sum(齿轮倒角完成数量)", "备用2 = '" & dr("销售计划号") & "'")

dr("齿淬火") = dt.SQLCompute("Sum(齿轮淬火完成数量)", "备用2 = '" & dr("销售计划号") & "'")

dr("整形") = dt.SQLCompute("Sum(整形完成数量)", "备用2 = '" & dr("销售计划号") & "'")

dr("孔加工") = dt.SQLCompute("Sum(孔加工完成数量)", "备用2 = '" & dr("销售计划号") & "'")

dr("打油眼") = dt.SQLCompute("Sum(打油眼完成数量)", "备用2 = '" & dr("销售计划号") & "'")

dr("油眼攻丝") = dt.SQLCompute("Sum(油眼攻丝完成数量)", "备用2 = '" & dr("销售计划号") & "'")

dr("打堵头眼") = dt.SQLCompute("Sum(打堵头眼完成数量)", "备用2 = '" & dr("销售计划号") & "'")

dr("堵头攻丝") = dt.SQLCompute("Sum(堵头眼攻丝完成数量)", "备用2 = '" & dr("销售计划号") & "'")

dr("车磨") = dt.SQLCompute("Sum(车磨完成数量)", "备用2 = '" & dr("销售计划号") & "'")

dr("装配") = dt.SQLCompute("Sum(装配完成数量)", "备用2 = '" & dr("销售计划号") & "'")

dr("清洗") = dt.SQLCompute("Sum(清洗完成数量)", "备用2 = '" & dr("销售计划号") & "'")

dr("打标") = dt.SQLCompute("Sum(打标完成数量)", "备用2 = '" & dr("销售计划号") & "'")

dr("打标牌") = dt.SQLCompute("Sum(打标牌完成数量)", "备用2 = '" & dr("销售计划号") & "'")

dr("喷漆") = dt.SQLCompute("Sum(喷漆完成数量)", "备用2 = '" & dr("销售计划号") & "'")

dr("包装") = dt.SQLCompute("Sum(包装完成数量)", "备用2 = '" & dr("销售计划号") & "'")

主题：统计效率的问题