还没搞定啊?? 3楼和9楼都是正解~~~或者用下述代码~~~
 
 
loca for allt(用户名)==allt(thisform.text1.value).and.allt(密码)==allt(thisform.text2.value)
IF foun()
   IF messagebox("你确定删除该记录吗？",4+64+256,"提示")=6
      ls=recn()
      copy to c:\ls for recn()<>ls
      zap
      appe from c:\ls
   ENDIF  
ELSE
   =messagebox("此用户不存在或密码有误，请重新输入！",0+64,"警告;")
endif
go top  
stor "  " to thisform.text1.value, thisform.text2.value
thisform.grid1.columncount=1  
thisform.refresh()

收到的鲜花

• olol61 于 2009-08-05 20:35 送鲜花  3朵  

呵呵，问题解决了，把表格换成列表框了
loca for allt(用户名)==allt(thisform.text1.value).and.allt(密码)==allt(thisform.text2.value)
IF .not.eof()
    IF messagebox("你确定删除该记录吗？",4+64+256,"提示")=6
       delete        
       PACK
       thisform.list1.columncount=1     &&表格只显示1列
 
   ENDIF  
ELSE
    =messagebox("此用户不存在，请重新输入！",0+64,"警告;")
endif
thisform.text1.value=" "
thisform.text2.value=" "
thisform.refresh()

表格控件就经常出现这种问题，原因为用了PACK命令让数据源重生及表格重新刷新的结果。这种事情，我用再定义表格的RECORDSOURCE及表格列的RAWSOURCE解决了。