如何使用VB 6更新数据网格中的下一行

Question

请帮助我如何使用Visual Basic 6更新数据网格中的下一条记录，因为我尝试添加rec.movenext但只更新了第一行。我的代码：

rec.Close
rec.Open "SELECT * FROM Salary WHERE UserID like '%" & Combo1.Text & "%'"

If rec.EOF Then
    rec.AddNew
Else
    rec.Update
    rec!Number = Text1.Text
    rec.MoveNext
End If

End Sub

Answer 1

您需要更新循环中的每个记录。像这样的东西

While Not rec.EOF
    rec!Number = Text1.Text
    rec.Update
    rec.MoveNext
Wend