CLEAR ALL
SELECT 2
USE hj2
ff=''
FOR i=1 TO 3
ff=ff+'产'+TRANSFORM(i)+'*hj2.产'+TRANSFORM(i)+'+'
ENDFOR
ff='update dd set hj1='+LEFT(ff,LEN(ff)-1)
?ff
&ff
Use hj2 &&如果hj2只有一条记录
lcString="Update hj1 Set 合计金额=0"
For lnI=1 To 126
lcString=lcString+"+hj1.产"+Transform(lnI)+"*hj2.产"+Transform(lnI)
Endfor
&lcString.
示例:
CLEAR ALL
SELECT 1
USE dd
dd1=AFIELDS(aa1,'dd')
FF=''
SELECT 2
USE HJ2
FOR i=1 TO ALEN(AA1,1)
IF aa1(i,2)='N' AND AA1(I,1)<>'HJ'
FF=FF+AA1(I,1)+'*'+TRANSFORM(&AA1(I,1))+'+'
ENDI
ENDFOR
FF=LEFT(FF,LEN(FF)-1)
SELECT 1
REPLACE ALL HJ WITH &FF