主题：[求助]后台查询代码效率

你的产品信息表数据量很大吗？为什么不加载全部后查询？

 

DataTables("产品信息表").loadfilter = ""
DataTables("产品信息表").load
For Each dr3 As DataRow In DataTables("销售订单未交_销售未交统计").DataRows
    Dim pr3 As DataRow = DataTables("产品信息表").find("产品编号='" & dr3("产品编号") & "'")
    If pr3 IsNot Nothing Then
        dr3("材料编号") =pr3 ("材料编号")
        dr3("材料名称") =pr3 ("材料名称")
        dr3("规格型号") =pr3 ("规格型号")
        dr3("部件用料长度mm") =pr3 ("部件用料长度mm")
    End If
Next

Dim idxs As String = ""
For Each dr3 As DataRow In DataTables("销售订单未交_销售未交统计").DataRows
    idxs &= "'" & dr3("产品编号") & "',"
Next

Dim cmd As new SQLCommand
cmd.ConnectionName = "数据源名"
cmd.CommandText = "select * from {产品信息表} where 产品编号 in ('" & idxs.trim(",") & "')"
Dim dt As DataTable = cmd.ExecuteReader
For Each dr3 As DataRow In DataTables("销售订单未交_销售未交统计").DataRows
    Dim pr3 As DataRow = dt.find("产品编号='" & dr3("产品编号") & "'")
    If pr3 IsNot Nothing Then
        dr3("材料编号") =pr3 ("材料编号")
        dr3("材料名称") =pr3 ("材料名称")
        dr3("规格型号") =pr3 ("规格型号")
        dr3("部件用料长度mm") =pr3 ("部件用料长度mm")
    End If
Next

4楼的代码耗时多少？如果也太耗时，你就需要把 【销售订单未交_销售未交统计】 改成后台表，直接和产品表连接查询得到结果。

你的产品编号有单引号？如果有修改代码

 

idxs &= "'" & dr3("产品编号").replace("'", "''") & "',"

 

如果没有，本身代码不应该有问题的。