版主，按照代码测试了一下，控件里面没有变化显示数据啊？怎么回事？

Dim  mysheet,myworksheet,mytag(10)

Set mysheet=HMIRuntime.Screens("report").ScreenItems("控件1")

Set myworksheet=mysheet.Object.sheets(1)

mytag(0)=HMIRuntime.Tags("dp").Read

mytag(1)=HMIRuntime.Tags("second").Read

mytag(2)=HMIRuntime.Tags(12).Read

With myworksheet

.activate

.cells(1,1)=mytag(0)

.cells(2,2)=mytag(1)

.cells(2,3)=mytag(2)

End With

Set myworksheet=Nothing

Set mysheet=Nothing