可以写数字
Dim objworktype
Set objworktype=HMIRuntime.Tags("WorkTypeWT")
objworktype.Value=1
objworktype.write
但是不可以写VB变量
worktype=rs.fields(0).Value
Dim objworktype
Set objworktype=HMIRuntime.Tags("WorkTypeWT")
objworktype.Value= worktype
objworktype.write
如果是写vb变量就会弹出对话框说gscrt.exe遇到问题需要关闭