&&查询
set talk off
set delimiter off
set safety off &&重建索引时不提示覆盖
use xj
inde on 学号 to xh &&按学号建立索引文件xh.idx
inde on 姓名 to xm &&按姓名建立索引文件xm.idx
stor.t.to c
do while c
clear
text
查询功能选项
0---退出查询检索系统
1---按学号查询
2---按姓名查询
endt
dd=1
@row()+1,17 say"请输入相应执行功能的代号" get dd pict "9" rang 0,4
read
do case
case dd=0
clear
do main
retu
case dd=1
clear
n1=spac(4)
@4,20 say"请输入学号" get n1
read
use xj inde xh &&打开数据库文件xj.dbf并打开按学号建立的索引文件xh.idx
find &n1 &&查找字符串n1，&为宏替换
case dd=2
Clear
n2=spac(6)
@4,10 say"请输入姓名" get n2
read
use xj inde xm
find &n2
other
retu
Endc
if eof() &&如果已到文件尾
clear
wait'对不起！无此学生的记录信息。请按任意键返回！'
loop
endif
cc=.t.
y=" "
do while cc
set devi to scre &&设置屏幕显示字符
clea
@row(),5 say"学号："+学号
@row(),40 say"姓名："+姓名
@row()+1,5 say"性别："+性别
@row()+1,5 say"出生年月："+dtoc(出生年月)
@row()+1,5 say"电话："+电话
@row(),40 say"通信地址："+通信地址
@row()+1,5 say"邮编："+邮编
@row()+1,5 say"总成绩："+总成绩
@row()+1,5 say"备注："+备注
@row()+1,40 say"所在年级："+所在年级
@20,20 say"不继续查找输入N，否则输入任一字符" get y
read
if y="N".or.y="n"
clear
stor.f.to cc
loop
else
Endif
if.not.eof()
loop
Endif
stor.f.to cc
Enddo
stor.f.to c
Enddo
use
do main
这是一个子程序，但是运行的时候提示类型不匹配，我怎么改，我数据表的成绩类型是数值型。。愿意留QQ的留个QQ吧，我在线等