假设数据一致,请考虑:
Sub SetBoxID()
Dim rs As DAO.Recordset, intID As Integer
Set rs = CurrentDb.OpenRecordset("SELECT * FROM Table1 ORDER BY ID")
While Not rs.EOF
If rs!Type = "Box" Then
intID = rs!ID
ElseIf rs!Type = "Desp" Then
rs.Edit
rs!BoxID = intID
rs.Update
End If
rs.MoveNext
Wend
End Sub
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句