rs.delete后,不是要执rs.update或rs.refresh ,而是要strongfisher(Haiwolf)的那样,将记录集移动到下一条,如果这时删除的已经是最后一条,那么再移动到最后一条(应是删除前的倒数第二条记录)
with rs
.delete
if .eof then
.movelast
else
.movenext
end if
end with
rs.delete后,不是要执rs.update或rs.refresh ,而是要strongfisher(Haiwolf)的那样,将记录集移动到下一条,如果这时删除的已经是最后一条,那么再移动到最后一条(应是删除前的倒数第二条记录)
with rs
.delete
if .eof then
.movelast
else
.movenext
end if
end with
intDelete = MsgBox("是否真的要删除?", vbYesNo + vbInformation, "注意!")
If rs.RecordCount <> 0 Then
If intDelete = vbYes Then
With rs
.Delete
.MoveNext
If .RecordCount <> 0 Then
If .EOF Then .MoveLast
End If
End With
End If
End If