UC知道vfp问题求解
来源：百度知道 编辑：UC知道 时间：2024/05/31 08:31:04
SET TALK OFF
CLEAR
USE 学生
ACCEPT "请输入学生学号:" TO XH
*****1*****
SEEK学号=XH
IF !EOF()
*****2*****
REPLACE ALL 奖学金 WITH 10
?学号,姓名,奖学金
ELSE
?"没有找到!"
ENDIF
USE
SET TALK ON
改正
CLEAR
USE 学生
ACCEPT "请输入学生学号:" TO XH
*****1*****
SEEK学号=XH
IF !EOF()
*****2*****
REPLACE ALL 奖学金 WITH 10
?学号,姓名,奖学金
ELSE
?"没有找到!"
ENDIF
USE
SET TALK ON
改正
首先 USE 学生 时没有指定索引，所以后面不能用 SEEK ，而且SEEK格式不对，然后后面 REPLACE ALL 奖学金 WITH 10 将所有学生的奖学金全替换成10了。修改如下：
SET TALK OFF
CLEAR
USE 学生
ACCEPT "请输入学生学号:" TO XH
*****1*****
LOCATE 学号=XH
IF !EOF()
*****2*****
REPLACE 奖学金 WITH 10
?学号,姓名,奖学金
ELSE
?"没有找到!"
ENDIF
USE
SET TALK ON