[求助]代码出错了,向各位请教
偶刚学VFP不久,写了一段代码,一运行就进入死循环,哪位高手帮忙看看哪里出错了,多谢了!
SET TALK OFF
SELECT 1
USE 表1
go top
do while .not. EOF()
a1=姓名
a2=语文
a3=数学
a4=英语
a5=总成绩
a6=平均成绩
a7=考试日期
a5=a2+a3+a4
a6=a5/3
SELECT 2
use 考试日期
y2=年份
m2=月份
use
y2=val(y2)
m2=val(m2)
if m2>0 .and. m2<10
m3=1
else
m3=2
endi
mm=str(m2,m3)
yy=str(y2,4)
ymym=yy+mm
a7=ymym
SELECT 1
USE 表1
replace 姓名 with a1
replace 语文 with a2
replace 数学 with a3
replace 英语 with a4
replace 总成绩 with a5
replace 平均成绩 with a6
replace 考试日期 with a7
SELECT 1
ENDDO
USE
retu