主题：[求助]SQLReplaceFor更新数据

老师好！

表"日线预测" 通过SQLFind在  表"实际日线"查找数据后赋值。但感到速度比较慢，如果改为SQLReplaceFor更新数据，下列的代码应该怎样修改？

Dim  drs As  List(of  DataRow) = DataTables("日线预测").SQLSelect("代码 = '" & nm & "'")
For Each  dr As  DataRow In drs
    Dim dr1 As DataRow = Tables("导入数据").DataTable.SQLFind("代码 = '" & nm & "'  And 日期 = '" & dr("日期") & "'" )
    If dr1 IsNot Nothing Then
        dr("实际日线") = dr1("涨跌幅")
    End If
Next
DataTables("日线预测").SQLUpdate(drs)