关于删除,使用set dele on语句只是 “使用范围子句处理记录(包括在相关表中的记录)的命令忽略标有删除标记的记录”并没有真正删除记录。要想删除后显示不为空白,应先把表的数据源设为空,删除后在重新指定数据源。
删除按钮的代码如下:
sele 借阅管理表
a=messagebox('确定要删除此条记录吗?',32+4+256,'系统提示')
if a=6 then
thisform.grd借阅管理表.recordsource=""
dele
pack
thisform.grd借阅管理表.recordsource="借阅管理表"
messagebox('成功删除?',64,'系统提示')
thisform.refresh
endif