Question

VFP 如何查询下一条符合条件的记录

我需要设计一个查询的功能，用的是组合框下拉选择条件，但只能查到第一条符合的记录，但是无法查询下一个符合条件的记录，网上说用continue可以查询下一个记录，但不会使用，我想要的功能就是像办公软件里的查找框一样的功能，可以一处一处往下查询。请高手指下：

以下是代码：

select llck &&选择数据表
if empty(thisform.Text1.value)=.f. &&判断是否空值
a=thisform.Combo1.value
b=alltrim(thisform.Text1.value)
if a="姓名"
locate for llck.姓名=b
if eof()
messagebox("数据库中不存在您所要查询的记录",16,"系统提示")
else
go recno()
endif
endif
else
messagebox("请输入要查找的内容！",16,"系统提示")
thisform.Text1.Setfocus
endif
return
我想用来管理机器的，例如我要查询CPU型号为E2180，而我的表里有多个E2180的CPU，而用我以上的方法只能查询到表里的第一个记录上。不能往下查询。能不能做到像办公软件的EXCEL一样，一个一个往下查。我贴个图出来，希望高手指点下。

Answer 1

select llck &&选择数据表
if empty(thisform.Text1.value)=.f. &&判断是否空值
a=thisform.Combo1.value
b=alltrim(thisform.Text1.value)
if a="姓名"
locate for llck.姓名=b
p=0
do while not eof()
disp
p=1
continue
enddo
if p=0
messagebox("数据库中不存在您所要查询的记录",16,"系统提示")
endif

endif
else
messagebox("请输入要查找的内容！",16,"系统提示")
thisform.Text1.Setfocus
endif
return

Answer 2

这个软件微软已经不支持了，过时的东西，劝你不要学了，毕业了没什么用。没有任何一个公司利用它来开发东西。