求助用Vfor做了一个在数据库表中插入新纪录的表单,但是程序运行之后,无法在表中插入数据

哥不喝了 哥不喝了 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区

enter=messagebox("确定插入?",4+32,"xxb")
if enter=7
xm=alltrim(thisform.姓名1.value)
ym=alltrim(thisform.text3.value) &&月末奖金
mq=alltrim(thisform.text4.value) && 满勤奖金
nz=alltrim(thisform.text5.value) &&年终奖金
qt=alltrim(thisform.text6.value) &&其他奖金
heji=ym+mq+nz+qt && 奖金合计
n=str(alltrim(thisform.combo1.value),4,0) &&combo rowsourcetype=1
y=str(alltrim(thisform.combo2.value),2,0) &&combo rowsourcetype=1
r=str(alltrim(thisform.combo3.value),2,0) &&combo rowsourcetype=1
rq=ctod(n+y+r) && 日期
sb=n+y+zgh &&识别
clear all table
insert into 工资表(职工号,日期,识别,奖金合计)values(zgh,rq,sb,heji)
insert into 奖金(职工号,日期,识别,月末奖金,满勤奖金,年终奖金,其他奖金)values(zgh,rq,sb,ym,mq,nz,qt)
MESSAGEBOX("修改成功",64,"xxb")
endif
...全文
评论 2
收藏 已收藏
分享
返回顶部
哥不喝了
VFP 2,750 成员 29,142 内容