Question

vfp 表单设计加了查找按钮可是输入信息却显示无记录,但表单中其他信息都是正常的，做了好久还是木有用

n=recno()
go top
scan
if thisform.optiongroup1.value=1
zd=演员.演员号
else
zd=演员.姓名
endif
if zd=alltrim(thisform.text1.value)
do case
case recno()=首记录
thisform.第一个.enabled=.f.
thisform.上一个.enabled=.f.
thisform.下一个.enabled=.t.
thisform.最后一个.enabled=.t.
case recno()=末记录
thisform.第一个.enabled=.t.
thisform.上一个.enabled=.t.
thisform.下一个.enabled=.f.
thisform.最后一个.enabled=.f.
otherwise
thisform.第一个.enabled=.t.
thisform.上一个.enabled=.t.
thisform.下一个.enabled=.t.
thisform.最后一个.enabled=.t.
endcase
thisform.text1.value=""
thisform.text1.setfocus()
thisform.refresh
return
endif
endscan
messagebox("该演员号或姓名不存在!",1,"查找失败")
goto n
thisform.text1.value=""
thisform.text1.setfocus()
thisform.refresh

Answer 1

应该是你的查询按钮没找到相关记录吧，可能是你的代码有错误

Answer 2

同学，能不能描述清楚一点
你的查找按钮里面的代码发来看看

追问

太长了，分两次发，后面还有
n=recno()
go top
scan
if thisform.optiongroup1.value=1
zd=演员.演员号
else
zd=演员.姓名
endif
if zd=alltrim(thisform.text1.value)
do case
case recno()=首记录
thisform.第一个.enabled=.f.
thisform.上一个.enabled=.f.
thisform.下一个.enabled=.t.
thisform.最后一个.enabled=.t.

追答

不会啊
我亲自测试了一遍，完全可以的啊
如果你还是不行，试试这样
变量首记录和末记录设置是不是正确的
然后就是你的查询代码，这是关键，这里没看见你的查询代码以及你的输出方式，建议仔细检查一下
在就是看看你的数据环境，该加的表有没有加上
如果还是不行，请发送到我邮箱568132828@qq.com