请教删除代码
我想请教一下,为什么我写的代码如果是查询到多条记录,我只想删除光标选中的那条记录,该怎么改,我写这个是把所有关于一个学号的所有违纪记录都删除了,求各位高手帮助,谢谢了。查找按钮代码:
no=alltrim(thisform.ym.page3.pageframe3.page4.Text1.value)
if empty(no)
messagebox("对不起,学号不能为空。",16,"错误")
return
endif
select xswjxx
locate for alltrim(xswjxx.学号)=alltrim(no)
if not found()
messagebox("没有找到你输入的学号。",16,"错误")
return
else
sele * from xswjxx where 学号=no into cursor xswjtemp
thisform.ym.page3.pageframe3.page4.grid1.recordsource="xswjtemp"
endif
删除按钮代码:
a=trim(thisform.ym.page3.pageframe3.page4.text1.value)
if a==""
messagebox("学号不能为空!")
else
messagebox("确认要删除吗?",1+64+0,"系统提示!")
select xswjxx
use
use xswjxx.dbf exclusive
dele from xswjxx where 学号=a
pack
thisform.activate
messagebox("删除成功!")
use xswjxx.dbf
select * from xswjxx into cursor xswjtemp
thisform.ym.page3.pageframe3.page4.grid1.recordsource="xswjtemp"
thisform.refresh
endif