1.先分析下删除的过程。
假设现在已经添加了记录,3个记录.当前显示第一个记录时,删除.指针向下移动显示第二个记录。第二个同理。但当前显示第三个记录时,删除第三个,指针指向EOF,这不是是我们想要的,我们要的是删除第三个记录后,显示第一个记录。
图1解:
代码如下:
代码(1)
Private Sub deleteCommand_Click()
myBookmark = mrc.Bookmark '对当前显示的记录作为标签
str2$ = MsgBox("是否删除当前记录?", vbOKCancel, "删除当前记录")
'单击删除按钮时弹出对话框提示是否删除当前记录
If str2$ = vbOK Then '如果删除当前记录
mrc.MoveNext '记录指针指向下一个记录
If mrc.EOF Then '如果EOF为真则说明刚开始显示的记录是记