摘要： str2$ = MsgBox("是否删除当前记录?", vbOKOnly + vbExclamation, "提示") If str2$ = vbOK Then mrc.MoveNext If mrc.EOF Then mrc.MoveFirst myBookMark = mrc.Bookmark mrc.MoveLast mrc.Delete mrc.Bookmark = myBookMark Call viewData Else myBookMark = mrc.Bookmark mrc.MovePrevious mrc.Delete '?? 阅读全文