恩，大概是这样子的：
Option Explicit
Function action
Dim objkj1

Dim objTag1
Dim objTag2
Dim objTag3
Dim objTag4
Dim objTag5
Dim objTag6
Dim objTag7
Dim objTag8

Set objTag1 = HMIRuntime.Tags("RPT0103")
Set objTag2 = HMIRuntime.Tags("PT0103")
Set objTag3 = HMIRuntime.Tags("FT0101")
Set objTag4 = HMIRuntime.Tags("mCc")
Set objTag5 = HMIRuntime.Tags("mDa")
Set objTag6 = HMIRuntime.Tags("mDi")
Set objTag7 = HMIRuntime.Tags("mCF")
Set objTag8 = HMIRuntime.Tags("mCH")

Set objkj1 = HMIRuntime.Screens("主画面").ScreenItems("控件1")
Set objkj2 = HMIRuntime.Screens("主画面").ScreenItems("控件3")

objTag1.Read
objTag2.Read
objTag3.Read
objTag4.Read
objTag5.Read
objTag6.Read

objkj1.SS = 0' 供热介质，0是水，1是蒸汽
objkj1.TT = objTag1.Value
objkj1.PP = objTag2.Value
objkj1.DP = objTag3.Value
objkj1.CC = objTag4.Value
objkj1.DA = objTag5.Value
objkj1.DI = objTag6.Value

objTag7.ValuE = objkj1.CF
objTag8.ValuE = objkj1.CH
'上面的TT，PP等等都是我做的控件的属性

objTag7.Write
objTag8.Write

End Function