Question

在VFP表单中输入学号再点击"查询"则输出"学号"课程名""成绩"。帮忙检查一下命令，不知道哪里错了。

LOCATE FOR 学生信息.XH ==ALLTRIM(THISFORM.TEXT1.VALUE)
IF 学生信息.XH ==ALLTRIM(THISFORM.TEXT1.VALUE)
THISFORM.GRID1.RECORDSOURCE="SELECT 课程名.kcm,学生成绩.CJ,课程名.KCH;
FROM 课程名 INNER JOIN 学生成绩;
ON 学生信息.XH =学生成绩.XH;
ON 课程名.KCH =学生成绩.KCH;
WHERE 学生信息.XH =ALLTRIM(THISFORM.TEXT1.VALUE);
INTO CURSOR TEMP"
ELSE

Answer 1

IF 学生信息.XH ==ALLTRIM(THISFORM.TEXT1.VALUE)
→ IF found()
SELECT 课程名.kcm,学生成绩.CJ,课程名.KCH;
FROM 课程名 INNER JOIN 学生成绩;
ON 学生信息.XH =学生成绩.XH;
ON 课程名.KCH =学生成绩.KCH;
WHERE 学生信息.XH =ALLTRIM(THISFORM.TEXT1.VALUE);
INTO CURSOR TEMP"
thisform.grid1.recordsource="temp"
thisform.grid1.refresh()

如果还不过的话，把这句改了WHERE 学生信息.XH =ALLTRIM(THISFORM.TEXT1.VALUE);
WHERE 学生信息.XH =bl;
在select前加bl=ALLTRIM(THISFORM.TEXT1.VALUE);

追问

还是过不了啊，怎么破

追答

提示什么？

追问

ON 学生信息.XH =学生成绩.XH;
ON 课程名.KCH =学生成绩.KCH;
WHERE 学生信息.XH =ALLTRIM(THISFORM.TEXT1.VALUE);（这里提示语法错误）还挂起不了，要不大神私聊？实在不行我再多给点分？求助啊

追答

bl=ALLTRIM(THISFORM.TEXT1.VALUE);
SELECT 课程名.kcm,学生成绩.CJ,课程名.KCH;
FROM 课程名 INNER JOIN 学生成绩;
ON 学生信息.XH =学生成绩.XH;
ON 课程名.KCH =学生成绩.KCH;
WHERE 学生信息.XH =bl;
INTO CURSOR TEMP"