inotice=messagebox( "确定删除指定的记录？ ",65, "重要提示 ")
if inotice=1
delete record recno()
anotice=messagebox( "确定物理删除指定的记录？ "+chr(13)+ "一经删除，不能恢复！！！ ",65, "重要提示 ")
if anotice=1
pack
endif
thisform.refresh
endif
我在要删除的记录前加了删除标记,删掉这个记录后,整个网格(gird)就变成全白的了... 我是把整个表拖进表单的.
------解决方案--------------------------------------------------------
改成如下：
if messagebox( "确定删除指定的记录？ ",4+32+256, "重要提示 ")=6
delete
if messagebox( "确定物理删除指定的记录？ "+chr(13)+ "一经删除，不能恢复！！！ ",4+32+256, "重要提示 ")
thisform.grid1.recordsource=null
pack
thisform.grid1.recordsource= '原表名 '
endif
thisform.grid1.refresh
endif