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

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

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