高手们小弟是新手问题幼稚不要见笑！
我在表单中建了一个grid，通过生成器加入了一个表。我想通过这个grid表格直接删除其中的一行。（我是指点中任意一行，也就是删除了表中的一行）这个删除的命令按钮程序怎么写？
小弟不知道怎么做呀。那位高手教教小弟。小弟感激不尽！多谢！

sele <表格名>
dele *当前记录删除标记

我经常这样做:
(1)在FORM1的INIT中写上这样的命令
CLOSE ALL
USE 表1.DBF
THISFORM.GRID1.RECORDSOURCETYPE=1
THISFORM.GRID1.COLUMNCOUNT=-1
THISFORM.GRID1.RECORDSOURCE="表1"

(2)假如点击表格GRID1中的一行后就执行删除，则在THISFORM.GRID1.AFTERROWCOLCHANGE过程中书写代码：
IF MESSAGEBOX("删除吗",36,"提示")=6
THISFORM.GRID1.RECORDSOURCE=NULL
DELETE
PACK
THISFORM.GRID1.RECORDSOURCE="A"
ENDIF
THISFORM.REFRESH

(3)若需要根据某字段的值且点击删除命令按钮后执行删除，则在该命令按钮的CLICK过程中书写代码：
LOCATE ALL FOR <字段名1>=THISFORM.TEXT1.VALUE
IF EOF()
MESSAGEBOX("无法删除不存在的记录",0,"提示")
ELSE
IF MESSAGEBOX("删除吗",36,"提示")=6
THISFORM.GRID1.RECORDSOURCE=NULL
DELETE
PACK
THISFORM.GRID1.RECORDSOURCE="A"
ENDIF
ENDIF
THISFORM.REFRESH

我也试试，这个问题一直也捆饶着我，我一直也没找到好的办法去解决，索性就没有再用。