回复:怎样可以在报警记录里面使不同区域的报警分别显示出来-技术论坛-工业支持中心-西门子中国

回复:怎样可以在报警记录里面使不同区域的报警分别显示出来

kenshinguo

帖子

719
精华

3
被关注

14

论坛等级：侠圣

注册时间：2004-03-16

普通如何晋级?

发布于 2010-06-19 21:42:01

2楼

我一般都用错误点来做过滤的，当然也可以用其它的。

Sub Process_OnPropertyChanged(ByVal Item, ByVal value)
If value = 1 Then
HMIRuntime.Screens("main_alarm").ScreenItems("控件1").MsgFilterSQL="TEXT2 = 'A'"
Elseif value=2 Then
HMIRuntime.Screens("main_alarm").ScreenItems("控件1").MsgFilterSQL="TEXT2 = 'B'"
Elseif value=4 Then
HMIRuntime.Screens("main_alarm").ScreenItems("控件1").MsgFilterSQL="TEXT2 = 'C'"
Elseif value=8 Then
HMIRuntime.Screens("main_alarm").ScreenItems("控件1").MsgFilterSQL="TEXT2 = 'D'"
Elseif value=16 Then
HMIRuntime.Screens("main_alarm").ScreenItems("控件1").MsgFilterSQL="TEXT2 = 'E'"
Elseif value=32 Then
HMIRuntime.Screens("main_alarm").ScreenItems("控件1").MsgFilterSQL="TEXT2 = 'F'"
Elseif value=64 Then
HMIRuntime.Screens("main_alarm").ScreenItems("控件1").MsgFilterSQL="TEXT2 = 'A' or TEXT2 = 'B' or TEXT2 = 'C'"
Elseif value=128 Then
HMIRuntime.Screens("main_alarm").ScreenItems("控件1").MsgFilterSQL="TEXT2 = 'D' or TEXT2 = 'E' or TEXT2 = 'F'"
Elseif value=256 Then
HMIRuntime.Screens("main_alarm").ScreenItems("控件1").MsgFilterSQL="TEXT2 = 'A' or TEXT2 = 'B' or TEXT2 = 'C' or TEXT2 = 'D' or TEXT2 = 'E' or TEXT2 = 'F'"
End if
End Sub