主题：[求助]sqlfind查询赋值慢

老师，用以下代码查询“进价（500行）”和“报表（400行）”表最近一次关联行赋值到“产品表（200）”，代码执行慢的很，

For Each dr As DataRow In DataTables("产品").DataRows
    If dr IsNot Nothing Then
        Dim dr1 As DataRow
        dr1 = DataTables("进价").SQLFind("合成名称 = '" & dr("合成名称") & "'", "进货日期 Desc")
        If dr1 IsNot Nothing Then
            dr("最新进价_进货日期") = dr1("进货日期")
            dr("最新进价_进价") = dr1("进价")
        End If
        Dim dr2 As DataRow
        dr2 = DataTables("报价").SQLFind("合成名称 = '" & dr("合成名称") & "'", "报价日期 Desc")
        If dr1 IsNot Nothing Then
            dr("最新报价_报价日期") = dr2("报价日期")
            dr("最新报价_报价") = dr2("报价")
        End If
    End If
Next

麻烦问一下，可否有替代思路或者优化代码？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:测试.txt

老师用以上代码，出现如下错误提示，麻烦看一下，

S ELECT语句 确实是我的短处，实在看不明白了。

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.6.7.1
错误所在事件：
详细错误信息：
操作必须使用一个可更新的查询。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:源码_产品进（报）价查询系统.zip

就是这个项目，麻烦您把SELECT语句改一下，做个样就行了，我实在搞不明白了。

知道了。谢谢！