SELECT 部位系数 from 尺寸 where ALLTRIM(型号)==alltrim() INTO cursor tmp
GO 1
thisform.text1.value=tmp.部位系数
GO 2
thisform.text2.value=tmp.部位系数
GO 3
thisform.text3.value=tmp.部位系数
GO 4
thisform.text4.value=tmp.部位系数
PUBLIC a ,b,c
SELECT 部位系数,一型半,二型,二型半,等差 from 女素头皮鞋标准中号楦体尺寸 where ALLTRIM(跟高)==alltrim() and ALLTRIM(头式)==ALLTRIM() INTO cursor tmp READWRITE
GO 1
a=tmp.部位系数
b=tmp.一型半
c=tmp.二型
thisform.text1.value=a
thisform.text17.value=b
thisform.text33.value=c