visual foxpro操作符/操作数类型不匹配
CLEARCLOSEALLSETTALKOFFSELECT1USE学生登记表SELECT2USE学生成绩表ANS="Y"DOWHILE.T.ACCEPT"请输入要查询的学...
CLEAR
CLOSE ALL
SET TALK OFF
SELECT 1
USE 学生登记表
SELECT 2
USE 学生成绩表
ANS="Y"
DO WHILE .T.
ACCEPT"请输入要查询的学生姓名:" TO NA
SELECT 1
LOCATE ALL FOR 姓名=NA
IF FOUND()
?"姓名:"+姓名
XH=学号
SELECT 2
LOCATE ALL FOR 学号=XH
DO WHILE 学号=XH
? "课程编号:"+课程编号,"成绩:"+STR(成绩) {运行后返回在这一行提示操作符/操作数类型不匹配}
CONTINUE
ENDDO
ELSE
? "没有"+NA+"这个学生"
ENDIF
WAIT "是否继续查找(Y/N)?" TO ANS
IF UPPER(ANS)="Y"
LOOP
ELSE
EXIT
ENDIF
ENDDO
USE
SET TALK ON
RETURN 展开
CLOSE ALL
SET TALK OFF
SELECT 1
USE 学生登记表
SELECT 2
USE 学生成绩表
ANS="Y"
DO WHILE .T.
ACCEPT"请输入要查询的学生姓名:" TO NA
SELECT 1
LOCATE ALL FOR 姓名=NA
IF FOUND()
?"姓名:"+姓名
XH=学号
SELECT 2
LOCATE ALL FOR 学号=XH
DO WHILE 学号=XH
? "课程编号:"+课程编号,"成绩:"+STR(成绩) {运行后返回在这一行提示操作符/操作数类型不匹配}
CONTINUE
ENDDO
ELSE
? "没有"+NA+"这个学生"
ENDIF
WAIT "是否继续查找(Y/N)?" TO ANS
IF UPPER(ANS)="Y"
LOOP
ELSE
EXIT
ENDIF
ENDDO
USE
SET TALK ON
RETURN 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询