护理的概念三个阶段:我用VFB6.0做了一个程序,但运行时出现问题,但我不知道错在那里,请高手帮助?

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/29 05:17:53
代码如下:
set talk off
clear
?"********记录插入**************"
use 学生.dbf
k="Y"

do while .T.
accept "请输入姓名:" to xm
locate for 姓名=xm
if found()

?"用户名已经存在"

else
input "请输入在哪条记录插入?" to sm
go sm
insert blank before
accept"请输入学号:" to xh
accept "请输入性别:" to xb
accept "请输入总分:" to zf
replace 姓名 with= xm,学号 with=(val(xh)),性别 with=xb,总分 with=(val(zf))
?"插入记录成功"
endif
wait "是否继续?" to k
if upper(k)<>"Y"
exit
endif
enddo
use
set talk on
return

快啊,正急着用!

去编程里问啊