为何查询少一条记录

wufeng980114

我将“表1”查询的数据保存到另一表“表2”中，发现少了最后一条记录，请教各位高手，谢谢了！
Private Sub 确定_Click()
Dim i As Integer
Dim rs, rs2 As ADODB.Recordset
Dim st, st1 As String
If 货物单号 <> "" Then
   Call ClearQY    '调用清空程序，将表2的数据清空
Set rs = New ADODB.Recordset
st = "select * from 表1 where 货物单号 = '" & Me.货物单号 & "'"
rs.Open st, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.MoveFirst
Set rs2 = New ADODB.Recordset
st2 = "select * from 表2 "
rs2.Open st2, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

For i = 1 To rs.RecordCount
   rs2.AddNew
   rs2("货物单号") = rs("货物单号")
   rs2("姓名") = rs("姓名")
   rs2("货物") = rs("货物")
   
   Me.货物显示.Requery
   rs.MoveNext
   Next i
Else
End If
Set rs = Nothing
Set rs2 = Nothing
End Sub


Private Sub ClearQY()
Dim g As Integer
Dim QYrs As ADODB.Recordset
Dim QYst As String
Set QYrs = New ADODB.Recordset
QYst = "select * from 表2 "
QYrs.Open QYst, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If QYrs.RecordCount <> 0 Then
QYrs.MoveFirst
For g = 1 To QYrs.RecordCount
QYrs.Delete 1
     QYrs.MoveNext
    Next g
'  QYrs.Update
Else
End If
Set QYrs = Nothing
QYst = ""
End Sub

asklove

For i = 1 To rs.RecordCount
   rs2.AddNew
   rs2("货物单号") = rs("货物单号")
   rs2("姓名") = rs("姓名")
   rs2("货物") = rs("货物")
少了句:rs2.update

wufeng980114

谢谢2楼的朋友，我输入错误。加上这一条，也是不行的！

asklove

就你的例子，加上那句，我这里正常的啊

wufeng980114

谢谢asklove，是我搞错了，加上你这句就正常了，问题已解决。非常感谢你！！