本人是VF菜鸟,写了一个删除的程序,但总不能实现,特来请哪位高手指教下,谢谢了!

nn=messagebox("确定删除",36,"提示")
if nn=6
thisform.dataenvironment.closetables('职员')
use 职员 exclusive
delete from 职员 where 职员号=alltrim(thisform.text1.value)
pack
use
thisform.dataenvironment.opentables('职员')
thisform.refresh
endif

我喜欢使用如下的命令组完成记录的删除:
IF MESSAGEBOX("确定删除",36,"提示")=6
THISFORM.GRID1.RECORDSOURCE=NULL
DELETE ALL FOR 职员号=THISFORM.TEXT1.VALUE
PACK
THISFORM.GRID1.RECORDSOURCE="职员"
ENDIF
THISFORM.REFRESH

不过最好先在你的FORM1.INIT()中写上如下代码
CLOSE ALL
USE 职员.DBF
THISFORM.GRID1.RECORDSOURCE="职员"
THISFORM.TEXT1.VALUE=职员号