我把几个字段拖到了表单上，然后自己做了几个按钮，有：第一个，上一个，下一个，最后一个 。 然后用了一个text1
来输入查询，我的下一个的代码是：
skip
if eof()
messagebox(......)
skip-1
this.parent.command3.enalbed=.f.
this.parent.command4.enalbed=.f.
else
this.parent.command3.enalbed=.f.
this.parent.command4.enalbed=.f.
endif
this.parent.command1.enalbed=.f.
this.parent.command2.enalbed=.f.
thisform.refresh
这段代码可以运行的 一般书上都有写的
下面的利用输入的text1里的内容查询的按钮代码：
mm=trim(thisform.text1.value)
if empty(mm)
message(......)
thisform.text1.setfocus
return
endif
select ttt && ttt是一个表 里面有学号 姓名 分数等字段
locate for 学号=mm
if found()
select 姓名，学号，分数from ttt where 学号=mm into cursor cur
。。。。。。后面的都不重要了
到这里 我可以实现把查找的 记录放到表单的各个字段text里 但是有些查到有多个记录的
我点击“下一个” 就出错了 报错说“这已经是最后一个记录了” 但是我查询到的明明有好多
不是哪里出问题了？

SET FILTER TO 条件

在哪里加这句？

mm=trim(thisform.text1.value)
if empty(mm)
message(......)
thisform.text1.setfocus
return
endif
select ttt && ttt是一个表 里面有学号 姓名 分数等字段
SET FILTER TO mm$学号
GO TOP

如果用loca的话那么配对的应该用continue
也就是说你在下一条中得用continue但这种用法不好，我建议你还是用select 建立临时表能方便一些。

locate for 条件：查找一个符合条件的记录
SET FILTER TO 条件：筛选出符合条件的所的记录

查找结束，在退出时后记住要加句
SET FILTER TO
要不就只能看附合条件的记录了，我前天试过这样，运行完后，退出，忘了要显示全部记录了
浏览下数据表，只有几条同样条件的记录，挺郁闷的，后来知道啦。哈哈

是啊，VFP表具有“记忆”功能，一般情况下是默认Brows Last

我是把表的字段拖到了表单上啊 都是text框 不是grid浏览
用了tiger 大哥的方法还是不行啊

改：
select ttt && ttt是一个表 里面有学号 姓名 分数等字段
SET FILTER TO 学号=mm
GO TOP

*** locate for 学号=mm
*** if found()
*** select 姓名，学号，分数from ttt where 学号=mm into cursor cur
***。。。。。。后面的都不重要了
在关闭表前，
SET FILTER TO
注释部分不要了。
问题就出在select 上。
不知道你生成这个临时表干吗？
大老虎的答案是正确的。

[此贴子已经被作者于2006-9-1 13:31:34编辑过]