打开画面时为组选控件添加组选项，

打开画面脚本

Sub OnOpen()         

Dim Group_Sel

Set Group_Sel = ScreenItems("Option1")

Dim Sel

Set Sel = HMIRuntime.Tags("Group_Sel")

Sel.Read 

Group_Sel.BoxCount=28

Group_Sel.Index = 1

Group_Sel.Text = "水源、提升泵站压力、流量"

Group_Sel.Index = 2

Group_Sel.Text = "提升泵站水泵震动监测"

Group_Sel.Index = 3

Group_Sel.Text = "提升泵站水泵温度监测"

Group_Sel.Index = 4

Group_Sel.Text = "提升泵站1#泵电力数据"

Group_Sel.Index = 5

Group_Sel.Text = "提升泵站2#泵电力数据"

Group_Sel.Index = 6

Group_Sel.Text = "沉清池流量、水质"

Group_Sel.Index = 7

Group_Sel.Text = "V型滤池液位"

Group_Sel.Index = 8

Group_Sel.Text = "V型滤池出水差压、流量"

Group_Sel.Index = 9

Group_Sel.Text = "炭滤池液位、流量、水质"

Group_Sel.Index = 10

Group_Sel.Text = "二厂送水泵房压力、流量"

Group_Sel.Index = 11

Group_Sel.Text = "二厂送水泵房水质"

Group_Sel.Index = 12

Group_Sel.Text = "二厂送水泵房水泵温度"

Group_Sel.Index = 13

Group_Sel.Text = "二厂1#送水泵电力数据"

Group_Sel.Index = 14

Group_Sel.Text = "二厂2#送水泵电力数据"

Group_Sel.Index = 15

Group_Sel.Text = "二厂3#送水泵电力数据"

Group_Sel.Index = 16

Group_Sel.Text = "二厂4#送水泵电力数据"

Group_Sel.Index = 17

Group_Sel.Text = "污水处理过程数据"

Group_Sel.Index = 18

Group_Sel.Text = "1#臭氧发生器数据"

Group_Sel.Index = 19

Group_Sel.Text = "2#臭氧发生器数据"

Group_Sel.Index = 20

Group_Sel.Text = "PAC加药数据"

Group_Sel.Index = 21

Group_Sel.Text = "1#次氯酸钠发生器"

Group_Sel.Index = 22

Group_Sel.Text = "2#次氯酸钠发生器"

Group_Sel.Index = 23

Group_Sel.Text = "次氯酸钠投加"

Group_Sel.Index = 24

Group_Sel.Text = "一厂压力、流量、液位"

Group_Sel.Index = 25

Group_Sel.Text = "一厂出厂水质、液位"

Group_Sel.Index = 26

Group_Sel.Text = "一厂送水泵温度"

Group_Sel.Index = 27

Group_Sel.Text = "一厂1#送水泵电力数据"

Group_Sel.Index = 28

Group_Sel.Text = "一厂2#送水泵电力数据"

' Group_Sel.Index = 29

' Group_Sel.Text = "备用"

' Group_Sel.Index = 30

' Group_Sel.Text = "备用"

' Group_Sel.Index = 31

' Group_Sel.Text = "备用"

' Group_Sel.Index = 32

' Group_Sel.Text = "备用"

Group_Sel.Process = Sel.Value 

End Sub