Loops VBA将所选记录复制到连续表单上的所有记录

我的表格和表单有4个字段。 简明，连续，连续，连续，上下文编号

我需要将所选记录中的值复制到连续表单中的所有记录，其中conCity相同

这似乎将值复制到所有记录。如何将更新限制为conCity等于所选记录的记录

With Me.RecordsetClone
.MoveFirst
Do While .EOF = False
.Edit
   .Fields("conCity").Value = Me.conCity.Value
   .Fields("conTime").Value = Me.conTime.Value
   .Fields("conRep").Value = Me.conRep.Value
   .Fields("conTerrioryNumber").Value = Me.conTerrioryNumber.Value

.Update
.MoveNext
Loop
End With

---

尝试使用

If

语句：

With Me.RecordsetClone
.MoveFirst
Do While .EOF = False
If .Fields("conCity").Value = Me.conCity.Value Then
.Edit
   .Fields("conCity").Value = Me.conCity.Value
   .Fields("conTime").Value = Me.conTime.Value
   .Fields("conRep").Value = Me.conRep.Value
   .Fields("conTerrioryNumber").Value = Me.conTerrioryNumber.Value

.Update
End If
.MoveNext
Loop
End With

---

我懂了。但你的问题是什么？