VFP代码问题求助！

USE 物料采购.DBF
GO TOP
locate for alltrim "SAP编码"=thisform.text1.value
locate for alltrim "产品名称"=thisform.text7.value
USE 库存情况.DBF
GO TOP
locate for alltrim(SAP编码)=thisform.text1.value
locate for alltrim(库存量)=thisform.text13.value
locate for alltrim(在途库存)=thisform.text19.value
USE 订单缺口.DBF
thisform.text25.value =a
locate for alltrim(A)=thisform.text1.value
a =select SUM As A FORM 订单缺口.DBF WHERE locate for alltrim(A)=thisform.text1.value INTO curs locate for alltrim(A)=thisform.text1.value
USE 物料采购.DBF
GO TOP
locate for alltrim(SAP编码)=thisform.text1.value
thisform.text13.value=b
thisform.text19.value=c
thisform.text25.value=d
thisform.text37.value= f
locate for alltrim(最低实际采购数量（吨）)=e
locate for alltrim(最小采购批量（吨）)=g
i=(b+c-d-g)/g
j=b+c-d
ROUND(i,0)=h
if j< e
thisform.text31.value= "买"
else
thisform.text31.value= "否"
endif
if thisform.text31.value= "买"
f=ABS(h)*g
else
f=0
endif
以上编程是否有错误，请帮忙纠正，特别是
locate for alltrim "SAP编码"=thisform.text1.value
locate for alltrim "产品名称"=thisform.text7.value
填入text1的值，查找表中“SAP编码”与text1的值相同时，text7显示值为定位“SAP编码”行与“产品名称”列相交的单元格的值