全局动作与画面事件的疑惑
刘玉蓉
发布于2014-09-25 16:22
39
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对象也需要进行创建
