我想请教一下，为什么我写的代码如果是查询到多条记录，我只想删除光标选中的那条记录，该怎么改，我写这个是把所有关于一个学号的所有违纪记录都删除了，求各位高手帮助，谢谢了。
查找按钮代码：
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

谢谢，我试试

还是不能只删除指定的一条，只能把所有的都删除了、

dele from xswjxx where 学号=a
----dele from xswjxx where 学号==a

表格的数据源直接用当前表会简单得多：
用SET FILTER TO 条件
然后 COUNT TO 变量
如果变量大于0，在表格中显示筛选出来记录。在表格中光标定位某记录后，直接执行：dele 就可以删除当前记录。

首先，与表格关联的临时表需要添加记录号字段
查询按钮的代码修改如下（对于修改的部分，我已经加了标记）：

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 *,recn() as 记录号 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
   * ---------------------------------------------------------
   if messagebox("确认要删除吗?",1+64+0,"系统提示!") = 2
        return
    endif
   *---------------------------------------------------------
    select xswjxx
    use
    use xswjxx.dbf exclusive
    * ====================================
    delete record xswjtemp.记录号
    * ====================================
    pack
    messagebox("删除成功！")
    use xswjxx.dbf
    select * from xswjxx into cursor xswjtemp
    thisform.ym.page3.pageframe3.page4.grid1.recordsource="xswjtemp"
    thisform.refresh
endif

有必要那么复杂吗？只要在删除按钮写入下列代码就行：
a=trim(thisform.ym.page3.pageframe3.page4.text1.value)
if a==""   
    messagebox("学号不能为空！")
else
    if messagebox("确认要删除吗?",36,"系统提示!")=1
        dele
        messagebox("删除成功！")
    endif
endif

pack的命令可以放在退出表单时执行，否则会引起表单中表格失去数据源而显示空白。
楼主代码中关闭表又重新打开表再删除的操作纯属多余的。
如果page4.text1.value是手工录入的（不是绑定记录自动定位的），则上述代码修改如下：
a=trim(thisform.ym.page3.pageframe3.page4.text1.value)
locate for alltrim(xswjxx.学号)=alltrim(a)
if eof()   
    messagebox("没有找到指定的学号！")
else
    if messagebox("确认要删除吗?",36,"系统提示!")=1
        dele
        messagebox("删除成功！")
    endif
endif

楼主的表格来源于临时表，而不是实体表。楼主的意思是在表格中选择一条记录后，单击删除按钮时删除实体表中的记录。因此，在删除记录时必须对实体表中的记录进行定位。

[ 本帖最后由 liuxingang28 于 2014-5-14 11:07 编辑 ]