set talk off
use xz4
index on 考号 to stu
do while ____________
clea
no=" "
@3,10 say "输入考号（0为退出）：" get no
read
if no="0000"
exit
endif
loca for 考号=no
if .not.found()
appe blan
else
@4,15 say "考号重复，再输入"
wait
enddo
endif
do while .t.
@8,10 say "考号" get 考号
@9,10 say "姓名" get 姓名
read
yes="Y"
@15,10 say"请核对（Y/N）" get yes
read
if uppe(yes)="Y"
?考号+姓名
else
exit
endif
enddo
set talk on
retu

[此贴子已经被作者于2005-11-12 19:57:37编辑过]

为什么第四行的DO while语句，无论我设什么，都会说嵌套出错？？？

请高手指点