我把几个字段拖到了表单上,然后自己做了几个按钮,有:第一个,上一个,下一个,最后一个 。 然后用了一个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里 但是有些查到有多个记录的
我点击“下一个” 就出错了 报错说“这已经是最后一个记录了” 但是我查询到的明明有好多
不是哪里出问题了?
查询结果不能看“下一个”