以下程序：
在全局动作中比较指令不执行
在画面---按钮---事件---其他---改变中却可以执行
不知道为什么？
查找是否有相同的数据循环开始
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对象也需要进行创建
提问者对于答案的评价：
谢谢，用了
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc264154.html
微信扫一扫 
支付宝扫一扫 