vfp编程请教,急
表单和数据表结构问题:表单中班级中输入一位数,例如“9”班,可以正常输入成绩。但是在班级文本框输入两位数时,例如“17”班时,则就不行了,提示错误。请教要如何做?本人穷,...
表单和数据表结构
问题:表单中班级中输入一位数,例如“9”班,可以正常输入成绩。但是在班级文本框输入两位数时,例如“17”班时,则就不行了,提示错误。请教要如何做?本人穷,没分了,谢谢!辛苦的老师啊,体谅下吧。
附“确定”探钮代码:
clos all
use 学生成绩.dbf
zcxh=thisform.text1.value
ksh=thisform.text2.value
zccj=thisform.text3.value
bj=thisform.text4.value
loca for 考生号=&ksh
thisform.grid1.RecordSource=null && 断开数据源
if 班级=&bj and 考生号=&ksh
thisform.label6.caption=""
if &zccj<=150
thisform.label6.caption=""
repl all 周测&zcxh with &zccj for 考生号=&ksh and 班级=&bj
thisform.text2.value=""
thisform.text3.value=""
THISFORM.text2.SETFOCUS
else
thisform.label6.caption="成绩输入错误,请重新输入!"
endif
else
thisform.label6.caption="班级输入错误,请重新输入!"
endif
thisform.grid1.RecordSource="学生成绩.dbf" && 重新接回数据源
thisform.grid1.refresh
thisform.refresh 展开
问题:表单中班级中输入一位数,例如“9”班,可以正常输入成绩。但是在班级文本框输入两位数时,例如“17”班时,则就不行了,提示错误。请教要如何做?本人穷,没分了,谢谢!辛苦的老师啊,体谅下吧。
附“确定”探钮代码:
clos all
use 学生成绩.dbf
zcxh=thisform.text1.value
ksh=thisform.text2.value
zccj=thisform.text3.value
bj=thisform.text4.value
loca for 考生号=&ksh
thisform.grid1.RecordSource=null && 断开数据源
if 班级=&bj and 考生号=&ksh
thisform.label6.caption=""
if &zccj<=150
thisform.label6.caption=""
repl all 周测&zcxh with &zccj for 考生号=&ksh and 班级=&bj
thisform.text2.value=""
thisform.text3.value=""
THISFORM.text2.SETFOCUS
else
thisform.label6.caption="成绩输入错误,请重新输入!"
endif
else
thisform.label6.caption="班级输入错误,请重新输入!"
endif
thisform.grid1.RecordSource="学生成绩.dbf" && 重新接回数据源
thisform.grid1.refresh
thisform.refresh 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询