Question

急求高手编写或者帮我检查我这个vfp中表单“增加档案”的 确认 命令按钮代码

locate for 职工号=thisform.zgh.value
IF found()
messagebox("该职工号已存在！")
thisform.zgh.setfocus
ELSE
zgh0=thisform.zgh.value
xm0=thisform.xm.value
xb0=iif(thisform.optiongroup1.value=1,'男','女')
zc0=thisform.zc.value
cs0=thisform.cs.value
gz0=thisform.gz.value
hf0=iif(thisform.hf.value=1,.t.,.f.)
jl0=thisform.jlt.value
bm0=thisform.bm.value
if len(trim(zgh0))=0 or len(trim(xm0))=0
if len(trim(zgh0))=0
messagebox("职工号不能为空！")
thisform.zgh.setfocus
endif
if len(trim(xm0))=0
messagebox("姓名不能为空！")
thisform.xm.setfocus
endif
else
insert into 职工(职工号,姓名,性别,职称,出生日期,基本工资,婚否,简历,部门) values(zgh0,xm0,xb0,zc0,cs0,gz0,hf0,gl0,bm0)
messagebox("增加成功！")
stor spac(10) to thisform.zgh.value,thisform.xm.value,thisform.xb.value,thisform.zc.value,thisform.cs.value,thisform.gz.value,thisform.jlt.value,thisform.hf.value,thisform.gl.value,thisform.bm.value
endif
ENDIF
ThisForm.Refresh

“职工”表里只有职工号,姓名,性别,职称,出生日期,基本工资,婚否,简历,部门字段
注释： 其中的hf是婚否 它是复选框控件
我自己运行的时候 老是说找不到变量jlt
时间急迫~~~~~~~~~~~~~~~~~~~~！求高手速速来 呜呜！！下周四前！

Answer 1

insert into 职工(职工号,姓名,性别,职称,出生日期,基本工资,婚否,简历,部门) values(zgh0,xm0,xb0,zc0,cs0,gz0,hf0,【gl0】,bm0) 你前面明明是用的jl0,怎么这里换了？？
stor spac(10) to thisform.zgh.value,thisform.xm.value,thisform.xb.value,thisform.zc.value,thisform.cs.value,thisform.gz.value,thisform.jlt.value,thisform.hf.value,thisform.gl.value,thisform.bm.value
这么复杂，可以用thisform.setall('value','','textbox')
thisform.setall('value','','editbox') 。。。。来清空数据

追问

- -!不小心打错了~ 恩 我不会你的什么清空0 0能给全的么

追答

你看下setall的语法。按你写的，复制我那2句就可以了。

追问

我们没教setall语法0 0能给全的么 哥哥~

追答

为容器对象中的所有控件或某类控件指定一个属性设置。
thisform.setall(属性名,值,控件的类名);
例:thisform.setall('value',space(2),'textbox') &&设置所有文本框控件的value属性为space(2)

追问

= =!不对 哎~谢谢你乐 我已经找好其他答案了~晕