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