全局动作与画面事件的疑惑
刘玉蓉
发布于2014-10-08 17:41
46
0
标签:
以下程序:
在全局动作中比较指令不执行
在画面---按钮---事件---其他---改变中却可以执行
不知道为什么?
查找是否有相同的数据循环开始
Dim j
For j= 2 To 2200
If ScreenItems("ioxtcs1").outputvalue=objexcelapp.worksheets("sheet1").cells(j,1).value Then
""输入数据的io域名称(ioxtcs1)与excel中 j 行 1列逐一比较,有相同的,执行下面的程序
MsgBox "输入的数据已使用,请重新输入数据" ""屏幕提示
Exit For ""跳出for循环
End If
Next
佳答案
首先,全局动作要设置一个触发器
ScreenItems("ioxtcs1").outputvalue这只是表示当前画面里的控件ioxtcs1的输出值,在全局动作里没有当前画面,可以利用HMIRuntime对象访问
HMIRuntime.Screens("画面名").ScreenItems("ioxtcs1").outputvalue
至于Excel相关的,我想你代码没写全吧,Excel对象也需要进行创建