以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教更加高效统计及导入数据的方法  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=154157)

--  作者:tld
--  发布时间:2020/9/6 0:48:00
--  请教更加高效统计及导入数据的方法
老师好,下面的代码所实现的功能,有没有更加高效的方法?
(试样表  与  样品表 ,都有一个 样品编号列、加工费 列。)

Dim dtb3 As DataTable = DataTables("试样")
Dim dtb2 As DataTable = DataTables("样品")
For Each ddr As DataRow In dtb2.DataRows
    ddr("加工费") = dtb3.SQLCompute("sum(加工费)","[样品编号] = \'" & ddr("样品编号") & "\'")
Next

数据量大时,感觉很慢   ,  希望找到更加高效的方法.

谢谢!!

--  作者:有点蓝
--  发布时间:2020/9/6 20:03:00
--  
使用sql

update {样品} as a set 加工费 = (select sum(加工费) from {试样} where 样品编号=a.样品编号)