vf程序。帮忙把这段话用程序代码写出来
这个程序怎么写?本人菜鸟勿笑iftext1为空(不是0,是什么都没有)messagebox("请先输入个人基本信息!!")如果不为空appendblank。。。。。。(t...
这个程序怎么写?本人菜鸟 勿笑
if text1为空(不是0,是什么都没有)
messagebox("请先输入个人基本信息!!")
如果不为空
append blank。。。。。。(text1是数值型的)
我是这样写的但是执行的时候总是错误 操作符/操作数类型不匹配
sele aqjy
if thisform.bh1.value = ''
messagebox("请先输入个人基本信息!!")
else
append blank
repl bh with thisform.bh1.value
repl xm with thisform.xm1.value
repl dwdm with thisform.dwdm1.value
set filt to bh=thisform.bh1.value
endif
thisform.refresh 展开
if text1为空(不是0,是什么都没有)
messagebox("请先输入个人基本信息!!")
如果不为空
append blank。。。。。。(text1是数值型的)
我是这样写的但是执行的时候总是错误 操作符/操作数类型不匹配
sele aqjy
if thisform.bh1.value = ''
messagebox("请先输入个人基本信息!!")
else
append blank
repl bh with thisform.bh1.value
repl xm with thisform.xm1.value
repl dwdm with thisform.dwdm1.value
set filt to bh=thisform.bh1.value
endif
thisform.refresh 展开
1个回答
展开全部
你的text1既然是数值型(文本框上点右键-生成器,再选择类型为数值型)的,就不会为空,它的默认值就是0,所以这里只能是
if thisform.bh1.value =0
如果将text1改成字符型的话,就可以测试是否为空了,可以这样测试:
if len(alltrim(thisform.bh1.value))=0
if thisform.bh1.value =0
如果将text1改成字符型的话,就可以测试是否为空了,可以这样测试:
if len(alltrim(thisform.bh1.value))=0
更多追问追答
追问
先谢谢你
其实执行这个command的时候能 bh1为空的时能显示出messagebox的内容
但是不为空的时候出现错误 操作符/操作数类型不匹配 如果把这个 if语句注释了就不会出现错误 一般会是什么地方产生的影响呢?
单位让做个管理系统没办法现学的vf。对这些错误没什么经验,各种求助闹死心了
追答
具体问题不是太明白,可能错误是出在后面的repl语句里吧
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询