Question

VFP删除代码

close all
use yuangong
if allt(zgbh)==alltrim(thisform.txtZgbh.value)
dele
pack
=messagebox("删除成功！")
else
if allt(xm)==allt(thisform.txtXm.value)
dele
pack
=messagebox("删除成功!")
else
messagebox("找不到相关记录!")
endif
endif
thisform.refresh
大家看看这代码，表里是有相关值的，但是第一次删除的话就是删除不掉，提示“找不到相关记录”，再换个值试试（这个值当然也是有的），能删除了，回过头来再删除第一次想删除的（提示找不到的）又能删除了！怎么回事？求指教！！
初衷是想先查找职工编号的如果没有输入职工编号而是输的姓名，就按照姓名查找，再找不到就提示找不到。

Answer 1

其实很简单，你的代码是有问题的，我解释下
当打开VFP表时，表的记录指针指向第一条记录
你这段程序执行下来，if allt(zgbh)==alltrim(thisform.txtZgbh.value)
程序查到符合记录，但是指针不会定位到那条记录，所以dele删除的有可能不是要删除的记录。
所以 改为
close all
use yuangong
if allt(zgbh)==alltrim(thisform.txtZgbh.value)
delete for allt(zgbh)==alltrim(thisform.txtZgbh.value)
pack
=messagebox("删除成功！")
else
if allt(xm)==allt(thisform.txtXm.value)
dele for allt(xm)==allt(thisform.txtXm.value)
pack
=messagebox("删除成功!")
else
messagebox("找不到相关记录!")
endif
endif
thisform.refresh