删除出错了...
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