VFP数据类型不匹配

答案:2 悬赏:80 手机版

解决时间 2021-03-17 08:13

提问者网友：黑米和小志
2021-03-16 09:45

close all
use yuangong
if alltrim(thisform.zgbh.value)=='' or alltrim(thisform.text1.value)==''or alltrim(thisform.xm.value)==''or alltrim(thisform.csrq.value)=='';
or alltrim(thisform.bm.value)==''or alltrim(thisform.gzrq.value)==''or alltrim(thisform.zc.value)==''or alltrim(thisform.jl.value)==''
=messagebox("请完整输入表单内容！")
thisform.zgbh.setfocus
else
locate for alltrim(yuangong.zgbh)==allt(thisform.zgbh.value)
if eof()
append blank
replace zgbh with alltrim(thisform.zgbh.value)
replace xb with alltrim(thisform.text1.value)
replace xm with alltrim(thisform.xm.value)
replace csrq with ctod(thisform.csrq.value)
replace bm with alltrim(thisform.bm.value)
replace gzrq with ctod(thisform.gzrq.value)
replace zc with alltrim(thisform.zc.value)
replace hyzk with alltrim(thisform.hyzk.value)
replace jl with alltrim(thisform.jl.value)
=messagebox("添加成功！")
else
=messagebox("职工编号重复，请重新输入！")
thisform.zgbh.setfocus
endif
endif
问题出在hyzk（婚姻状况）、jl（简历）。一个是逻辑型数据，一个是备注型数据，不知道怎么修改。

yhzk我用的是复选框

最佳答案

五星知识达人网友：不想翻身的咸鱼
2021-03-16 11:25

复选框有两个值，为0或为1，当选中时，其值为1，不选中时其值为0。
那么，可以用一个判断：
if thisform.hyzk.value=1
repl hyzk with .t.
else
repl hyzk with .f.
endif

备注型不太清楚怎么弄了。

全部回答

1楼网友：北方的南先生
2021-03-16 12:05

你可以在上述语句的第一行加入：set step on 然后运行，单步执行，看看到哪一步出错，在出错的那句再进行仔细的分析你没有具体给出具体的数据，我们也看不出那里出错

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息