[求助]表的部分更新问题

zhouyunliang

经测试以下代码是最快的
Public Sub Update()
    Dim rs As DAO.Recordset
    Dim rs1 As DAO.Recordset
    CurrentDb.Execute "update 产品信息 set 最近交易日期=null"
    Set rs = CurrentDb.OpenRecordset("select * from 产品信息")
    Set rs1 = CurrentDb.OpenRecordset("select * from 今年发货情况表 order by 日期")
    While Not rs1.EOF
        rs.FindLast "存货编码 = '" & rs1.Fields("存货编码") & "'"
        rs.Edit
        rs.Fields("最近交易日期") = rs1.Fields("日期")
        rs.Update
        rs1.MoveNext
    Wend
    rs.Close
    rs1.Close
    Set rs = Nothing
    Set rs1 = Nothing
End Sub