vfp 表单成绩修改,急……
如图,数据环境为cj表,求表单中“确定”按钮的代码,可以实现成绩修改的功能成功的话会再加分!谢谢,在线等!...
如图,数据环境为cj表,求表单中“确定”按钮的代码,可以实现成绩修改的功能
成功的话会再加分!谢谢,在线等! 展开
成功的话会再加分!谢谢,在线等! 展开
2个回答
展开全部
sele cj
t1=alltrim(thisform.text1.value)
t2=thisform.text2.value &&在text2上点右键-生成器,将类型改为“数值型”
c1=alltrim(thisform.combo1.value)
loca for 学号=t1
if found()
update cj set 成绩=t2 where 学号=t1 and 课程代码=c1
messagebox("修改成绩成功!",64,"修改成功")
else
messagebox("查无此人!",16,"查询失败")
endif
t1=alltrim(thisform.text1.value)
t2=thisform.text2.value &&在text2上点右键-生成器,将类型改为“数值型”
c1=alltrim(thisform.combo1.value)
loca for 学号=t1
if found()
update cj set 成绩=t2 where 学号=t1 and 课程代码=c1
messagebox("修改成绩成功!",64,"修改成功")
else
messagebox("查无此人!",16,"查询失败")
endif
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询