循环给文本框赋值
我的表单中有10多个文本框,现在要按查询表的结果对应给每个文本框赋值,写了下面的程序,但是thisform.text("i").Value=Producttable.SKU和thisform.text("J").Value=Producttable.itemnameen这两句提示"函数参数的值,类型或数目无效".
请问该怎么写这两句赋值的语句.
具体程序如下:
SELECT producttable
LOCATE FOR ALLTRIM(Producttable.itemnameen)=ALLTRIM()
thisform.TEXT61.VALUE=Producttable.SKU
GO TOP
isend=.F.
i=1
J=2
Do While isend=.F.
IF EOF()
isend=.T.
else
IF LEFT(ALLTRIM(Producttable.sku),10)=LEFT(ALLTRIM(thisform.TEXT61.Value),10)
thisform.text("i").Value=Producttable.SKU
thisform.text("J").Value=Producttable.itemnameen
i=i+4
J=J+4
ENDIF
SKIP 1
ENDIF
ENDDO
thisform.refresh