if Msgbox("确定要删除当前行吗?",vbYesNo+vbQuestion,"提示") = vbNo then return
currenttable.current.delete
我比较习惯这种写法