试过，这个对于通过画面窗口调用的窗口无效。后来仔细查了帮助，找到两种解决方法.
=========================================
Dim objAlarm
Set objAlarm=HMIRuntime.Screens("main.画面窗口:main_Alarm").ScreenItems("控件1")
objAlarm.MsgFilterSQL ="TEXT2 LIKE 'F1'"
=========================================
Dim objAlarm
Set objAlarm=HMIRuntime.Screens("main").ScreenItems("画面窗口").Screen.ScreenItems("控件1")
objAlarm.MsgFilterSQL ="TEXT2 LIKE 'F1'"