你把values读到脚本中了，中间计算后你要输出给wincc的变量，下次脚本执行再读进来呀。

Function sql()

Dim values(5)

Dim value

Dim count

Count=hmiruntime.tags(“tag_9”).read

Value=hmiruntime.tags(“tag_1”).read

Values(0)= hmiruntime.tags(“tag_sav1”).read

Values(1)= hmiruntime.tags(“tag_sav2”).read

Values(2)= hmiruntime.tags(“tag_sav3”).read

Values(3)= hmiruntime.tags(“tag_sav4”).read

Values(4)= hmiruntime.tags(“tag_sav5”).read

Count=count+1

If count=5 then

Dim sum

Dim i

Sum=0

For 0=1 to 4

Sum=sum+values(i)

next

Sql=sum

For i=1 to 4

Values(i-1)=values(i)

Next

Values(4)=values

hmiruntime.tags(“tag_sav1”).write Values(0)

hmiruntime.tags(“tag_sav2”).write Values(1)

hmiruntime.tags(“tag_sav3”).write Values(2)

hmiruntime.tags(“tag_sav4”).write Values(3)

hmiruntime.tags(“tag_sav5”).write Values(4)

End if

end function