為何查詢少一條記錄

wufeng980114

我將“表1”查詢的數(shù)據(jù)保存到另一表“表2”中，發(fā)現(xiàn)少了最后一條記錄，請教各位高手，謝謝了！
Private Sub 確定_Click()
Dim i As Integer
Dim rs, rs2 As ADODB.Recordset
Dim st, st1 As String
If 貨物單號 <> "" Then
   Call ClearQY    '調(diào)用清空程序，將表2的數(shù)據(jù)清空
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，是我搞錯了，加上你這句就正常了，問題已解決。非常感謝你！！