恋爱动漫女主角要漂亮:关于VFP 请前辈高手指教

小弟做一个数据库
其中出货部分 用COMBO选定型号,TEXT填写数量,然后用库存表kulist判断比如:库存表中型号为EWH的数量是否大于EWH出货的数量我用LOCA FOR定位
以下是我的全部命令
if lenc(dtoc(thisform.text28.value))#0 .and. lenc(allt(thisform.combo13.value))#0 .and. lenc(allt(thisform.combo15.value))#0 .and. lenc(allt(thisform.text29.value))#0 .and. lenc(allt(thisform.text54.value))#0 .and. lenc(allt(thisform.text26.value))#0 .and. lenc(allt(thisform.text25.value))#0 .and.lenc(allt(thisform.text27.value))#0 then
do form D:\czlsgm\across
read even
if val=1
a=thisform.text28.value
b=thisform.combo13.value
c=thisform.combo15.value
d=allt(thisform.text29.value)
e=allt(thisform.text54.value)
f=allt(thisform.text26.value)
g=allt(thisform.text25.value)
h=allt(thisform.text27.value)
tim=datetime()
Y=0
if lenc(allt(thisform.combo1.value))#0 .and. allt(thisform.combo1.value)#"无" then
if lenc(allt(thisform.text1.value))=0 .or. lenc(allt(thisform.text30.value))=0 .or. lenc(allt(thisform.text7.value))=0 then
messagebox('机器型号1请输入完整数据',"提示窗口")
thisform.refresh
else
bo1=thisform.combo1.value
con1=val(allt(thisform.text1.value))
dj1=val(allt(thisform.text30.value))
mon1=val(allt(thisform.text7.value))
send1=allt(thisform.text42.value)
go top
loca for kulist.机器型号=bo1
if found()
go recno()
if kulist.数量-con1<0
messagebox(bo1-'因缺货没有出库请及时通知李总',"提示窗口")
ELSE
messagebox(bo1-'输入成功',"提示窗口")
Y=Y+1
endif

endif
endif
endif
if lenc(allt(thisform.combo6.value))#0 .and. allt(thisform.combo6.value)#"无" then
if lenc(allt(thisform.text2.value))=0 .or. lenc(allt(thisform.text31.value))=0 .or. lenc(allt(thisform.text8.value))=0 then
messagebox('机器型号2请输入完整数据',"提示窗口")
thisform.refresh
else
bo2=thisform.combo6.value
con2=val(allt(thisform.text2.value))
dj2=val(allt(thisform.text31.value))
mon2=val(allt(thisform.text8.value))
send2=allt(thisform.text43.value)
go top
loca for kulist.机器型号=bo2
if found()
go recno()
if kulist.数量-con2<0
messagebox(bo2-'无货请及时通知李总',"提示窗口")

ELSE
messagebox(bo2-'输入成功',"提示窗口")
Y=Y+1
endif
else
messagebox('仓库中无此机型',"提示窗口")
thisform.refresh
endif
endif
else
endif

else
thisform.refresh
endif
else
messagebox("请输入完整数据","提示窗口")
thisform.refresh
endif
但是不知道为什么如果只填一拦即出一种机器就没有问题当我出两种的时候就提示"仓库中无此机型"真郁闷 还请高手们解决 本人急
如果有什么说的不清楚的可以QQ上说110150448非常感谢