Delete 之后最好加一个判断
If Not Eof()
Skip && 将记录指向下一条
Endif
If Eof() && 前一条SKIP命令可能会造成 EOF()
Go Bottom && 将记录指向最后一条
Endif
THisFOrm.Refresh()
set deleted on
if messagebox("是否删除当前记录",4+32,"系统提示")=6
delete
thisform.refresh
endif
请问这位同学, 怎么实现照片随着学号的改变而改变呢?我做不出来。
go 记录号
dele
pack