求删除按钮代码，需要输入Y删除，否则不删除！

sc=messagebox('确实要删除本条记录吗？',4,'删  除  警  示　窗　口')
IF sc=6
    DELETE
ENDIF

你要用这个钮删除什么东西啊？

定位删除
sc=messagebox('确实要删除本条记录吗？',4,'删  除  警  示　窗　口')
IF sc=6
    DELETE NEXT 1
    或者
    DELETE RECORD RECNO()
ENDIF
详细内容参见VFP帮助文件

WAIT '确定删除？' +CHR(13)+'点击键盘Y（删除）或N（不删除）' TO qr WINDOW AT 20,20
if qr='y'
.....
else
....
endif

上面几楼均可实现楼主目的~  也可精简为:

if 6=messageb("确认删除该条记录吗?? ",4," 谨慎")
   dele
endif

 

热心者云集，楼主却“不必完美”去了。