我用删除按钮删除某一条记录时，删除后表格变成空白，不能继续输入数据。只有关掉以后才显示以前完整的表格，但那条记录却实成功地删除了，可每次都要退出表单以后才能重新输入数据。我对表单做了刷新，可仍然没用。
我的删除代码如下：
if messagebox("确实要删除该条记录吗?",1+32,"信息")=1
select 表名
delete
pack
thisform.grid1.refresh
thisform.refresh
thisform.grid1.setfocus
else
thisform.grid1.setfocus
endif
thisform.refresh
请教各位高手了。

删除前,把grid1数据源的连接删掉
删除后,再重新连接上.

不太明白。你能说详细一点吗？

这是我编的一个实例的一段:
thisform.grid1.recordsource=''
thisform.grid1.column1.controlsource=""
thisform.grid1.column2.controlsource=""
thisform.grid1.column3.controlsource=""
thisform.grid1.column4.controlsource=""
thisform.grid1.column5.controlsource=""
thisform.grid1.column6.controlsource=""
thisform.grid1.column7.controlsource=""
delete
pack
thisform.grid1.recordsource='inkcspss'
thisform.grid1.column1.controlsource="inkcspss.spbm"
thisform.grid1.column2.controlsource="inkcspss.spmingcheng"
thisform.grid1.column3.controlsource="inkcspss.danwei"
thisform.grid1.column4.controlsource="inkcspss.danjia"
thisform.grid1.column5.controlsource="inkcspss.guige"
thisform.grid1.column6.controlsource="inkcspss.chandi"
thisform.grid1.column7.controlsource="inkcspss.leibie"

select 表名
if messagebox("确实要删除该条记录吗?",1+32,"信息")=1
THISFORM.GRID1.RECORDSOURCE=NULL
delete
pack
THISFORM.GRID1.RECORDSOURCE="表名"
endif
thisform.refresh

谢谢4楼，你的方法很好用。