【求助】求大神帮忙看下这段代码(关于保存)哪里出错了
我又来求助了当我运行时,点击删除,shiti表中的记录能够被删除,但是当我追加后,点击保存,shiti表中的并没有出现我追加的记录。求大神帮我看看【保存】的代码哪里出错了
这是界面
这是【删除】的代码
程序代码:
set delete on dele cz=messagebox("确实要删除这条记录吗?",4+32+256,"删除确认") do case case cz=6 =tableupdate(.t.) case cz=7 recall endcase thisform.refresh
这是【保存】代码
程序代码:
n=recno() &&存放当前添加或编辑的记录号 sele shiti dele for len(alltrim(shiti.试题))=0.or.; len(alltrim(shiti.答案))=0 &&删除试题或答案无内容的记录 i=0 &&用来存放符合条件的记录个数 loca for alltrim(shiti.试题)==alltrim(thisform.edit1.value) do while.not.eof() i=i+1 continue enddo **locate语句查到的符合条件的记录包括当前正在编辑的记录 **有超过1个的记录时,第一个记录才会被删除 if i>1 messagebox("这道题已经出现过,刚刚输入或编辑的信息已被删除。",0,"提示!") go n dele endif =tableupdate(.t.) =.t. =.t. =.t. =.f. =.f. =.t. thisform.edit1.enabled=.f. thisform.txt答案.enabled=.f.