MS Access跨表数据迁移异常：目标行匹配错误求助

原代码的核心问题有两个：

1. 同步移动两个记录集：Hidd1包含更多深度的记录（5m、20m等），而FdSest1只有0m、10m和底部深度，同步移动只会匹配行号一致的记录，大部分FdSest1的记录找不到Hidd1中对应的行。
2. 变量初始化错误：只在开头取了一次字段值，循环过程中没有更新，导致判断条件一直用的是第一条记录的数值，完全起不到匹配作用。

针对这两个问题，同时考虑大数据量的性能，给你两种解决方案：

方案一：DAO记录集精准查找优化版 #

保留记录集操作，但改为遍历FdSest1的每一行，再在Hidd1中精准定位匹配记录：

Private Sub Azuriraj_Fds_Click()
    Dim db As DAO.Database
    Dim sest As DAO.Recordset
    Dim hidd As DAO.Recordset
    Dim matchCriteria As String
    
    Set db = CurrentDb
    Set sest = db.OpenRecordset("FdSest1")
    ' 提前打开Hidd1记录集，避免重复打开
    Set hidd = db.OpenRecordset("Hidd1", dbOpenDynaset)
    
    ' 给Hidd1的匹配字段建联合索引能大幅提升查找速度，建议执行一次：
    ' CREATE INDEX idx_Hidd1_Match ON Hidd1 (Stat, Date, Time, Dephwl);
    
    sest.MoveFirst
    Do Until sest.EOF
        ' 每次循环更新匹配条件，处理字符串转义避免SQL错误
        matchCriteria = "Stat = '" & Replace(sest!Stat, "'", "''") & "' " & _
                        "AND Date = #" & Format(sest!Date, "yyyy-mm-dd") & "# " & _
                        "AND Time = #" & Format(sest!Time, "hh:nn:ss") & "# " & _
                        "AND Dephwl = " & sest!Dephwl
        
        ' 在Hidd1中查找匹配记录
        hidd.FindFirst matchCriteria
        If Not hidd.NoMatch Then
            hidd.Edit
            hidd!Ismc = sest!Ismc
            hidd!Tsmc = sest!Tsmc
            hidd.Update
        End If
        
        sest.MoveNext
    Loop
    
    MsgBox "更新完成"
    
    ' 释放资源
    sest.Close
    hidd.Close
    Set sest = Nothing
    Set hidd = Nothing
    Set db = Nothing
End Sub

方案二：SQL批量更新版（推荐用于大数据量） #

直接用SQL语句批量更新，比逐行遍历效率高得多，适合数据量大的场景：

Private Sub Azuriraj_Fds_Click()
    Dim updateSQL As String
    
    updateSQL = "UPDATE Hidd1 INNER JOIN FdSest1 ON " & _
                "Hidd1.Stat = FdSest1.Stat AND " & _
                "Hidd1.Date = FdSest1.Date AND " & _
                "Hidd1.Time = FdSest1.Time AND " & _
                "Hidd1.Dephwl = FdSest1.Dephwl " & _
                "SET Hidd1.Ismc = FdSest1.Ismc, Hidd1.Tsmc = FdSest1.Tsmc;"
    
    CurrentDb.Execute updateSQL, dbFailOnError
    MsgBox "完成更新，共更新 " & CurrentDb.RecordsAffected & " 条记录"
End Sub

关键改进说明 #

• 方案一中使用FindFirst替代同步移动，确保每一条FdSest1的记录都能在Hidd1中找到对应匹配项，不受行号位置限制。
• 方案二的SQL批量更新直接通过数据库引擎处理，避免了VBA逐行操作的开销，数据量越大优势越明显。
• 两种方案都修复了原代码中变量不更新的问题，匹配条件会随每条记录动态变化。
• 建议给Hidd1的Stat、Date、Time、Dephwl字段创建联合索引，不管用哪种方案都能大幅提升匹配效率。

内容的提问来源于stack exchange，提问作者Silvio