UC知道VFP高手进
来源：百度知道 编辑：UC知道 时间：2024/05/29 19:30:07
set talk off
clear
use 学生表
do while .t.
accept "请输入要查询的字段名：" to zdm
if type(zdm)<>"C"
?"输入的字段类型错误，请重新输入"
loop
endif
accept "请输入查询字段所对应的查询内容：" to nr
******found*******
locate for zdm=nr
do while !eof()
disp
wait
continue
enddo
wait "还要继续查询吗(y/n)" to yn
if upper(yn)="N"
******found*******
loop
endif
enddo
clear
use 学生表
do while .t.
accept "请输入要查询的字段名：" to zdm
if type(zdm)<>"C"
?"输入的字段类型错误，请重新输入"
loop
endif
accept "请输入查询字段所对应的查询内容：" to nr
******found*******
locate for zdm=nr
do while !eof()
disp
wait
continue
enddo
wait "还要继续查询吗(y/n)" to yn
if upper(yn)="N"
******found*******
loop
endif
enddo
1 if type(zdm)<>"C" 改成：if type('zdm')<>"C"
2 locate for zdm=nr 改成：locate for &zdm=nr
3 do while !eof()
disp
wait
continue
enddo
改成：
do while !eof()
disp next 1
wait
continue
enddo
4 if upper(yn)="N"
******found*******
loop
endif
loop 改成exit