vf总是提示命令中含有不能识别的短语或关键字
ifempty(thisform.text1.value)orempty(thisform.text2.value);orempty(thisform.text3.val...
if empty(thisform.text1.value)or empty(thisform.text2.value);
or empty(thisform.text3.value)or empty(thisform.text4.value);
or empty(thisform.text5.value)or empty(thisform.text6.value);
or empty(thisform.text7.value)or empty(thisform.text8.value);
or empty(thisform.text9.value)or empty(thisform.text10.value);
messagebox("销售数据不全整",48,"提示信息")
thisform.text1.setfocus
else
select kc
locate for kc.商品编号==alltrim(thisform.text1.value)
if found()
if kc.库存数量.val(thisform.text5.value)
messagebox("库存数量不足",48,"警告")
else
select xs
append blank
replace 商品编号 with thisform.text1.value
replace 商品名称 with thisform.text2.value
replace 商品型号 with thisform.text3.value
replace 销售日期 with ctod(thisform.text4.value)
replace 销售数量 with val(thisform.text5.value)
replace 单价 with val(thisform.text6.value)
replace 总价 with thisform.text7.value
replace 顾客姓名 with thisform.text8.value
replace 联系电话 with thisform.text9.value
replace 销售人员 with thisform.text10.value
endif
endif
endif
select kc
locate for kc.商品编号=xs.商品编号
replace 库存数量 with 库存数量.val(thisform.text5.value) 展开
or empty(thisform.text3.value)or empty(thisform.text4.value);
or empty(thisform.text5.value)or empty(thisform.text6.value);
or empty(thisform.text7.value)or empty(thisform.text8.value);
or empty(thisform.text9.value)or empty(thisform.text10.value);
messagebox("销售数据不全整",48,"提示信息")
thisform.text1.setfocus
else
select kc
locate for kc.商品编号==alltrim(thisform.text1.value)
if found()
if kc.库存数量.val(thisform.text5.value)
messagebox("库存数量不足",48,"警告")
else
select xs
append blank
replace 商品编号 with thisform.text1.value
replace 商品名称 with thisform.text2.value
replace 商品型号 with thisform.text3.value
replace 销售日期 with ctod(thisform.text4.value)
replace 销售数量 with val(thisform.text5.value)
replace 单价 with val(thisform.text6.value)
replace 总价 with thisform.text7.value
replace 顾客姓名 with thisform.text8.value
replace 联系电话 with thisform.text9.value
replace 销售人员 with thisform.text10.value
endif
endif
endif
select kc
locate for kc.商品编号=xs.商品编号
replace 库存数量 with 库存数量.val(thisform.text5.value) 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询