Question

寻VFP高手 运行程序时提示没有查到表单是怎么回事 还有说找不到相对路径又是怎么回事 还有问题详细联系

在线等 迅速
sele adminer
use student\database\adminer
cx=alltrim(thisform.text1.value)
cy=alltrim(thisform.text2.value)
set order to 用户名
seek cx
if alltrim(adminer.用户名)!=cx
cmessagetitle='学生信息系统'
cmessagetext='用户名错误,请重新输入'
ndialogtype=4+32
nanswer=messagebox(cmessagetext,ndialogtype,cmessagetitle)
do case
case nanswer=6
thisform.text1.value=''
thisform.text1.setfocus
case nanswer=7
cmessagetitle='学生信息系统'
cmessagetext='不要乱来'
messagebox(cmessagetext,ndialogtype,cmessagetitle)
thisform.release
endcase
else
if alltrim(adminer.密码)!=cy
cmessagetitle='学生信息系统'

找不到别名 怎么回事
退出时说地方不存在 是怎么回事啊

Answer 1

sele adminer
use student\database\adminer
这两句调整下：
USE student\database\adminer ALIAS adminer IN 0
SELECT adminer

你这段代码是写在表单里的，运行它（即表单）怎么会说查不到表单？找不到哪个表单？在初始的程序文件里把路径设对来要。