产品型号也用下拉列表框来选择，事先组态好三种产品型号；

模具号列表，先组态好三种模具号，每种模具号的名称，根据产品型号的不同而修改。

在产品型号下拉列表框的事件(Selected box - Change事件)中，组态VBS脚本：

Sub SelIndex_OnPropertyChanged(ByVal Item, ByVal value)   

   Dim objComboBox1,objComboBox2

   Dim iSelectIndex

   Set objComboBox1 = ScreenItems("Combo Box1") '产品型号下拉框

   iSelectIndex = objComboBox1.SelIndex

   Set objComboBox2 = ScreenItems("Combo Box2") '模具号下拉框

   Select Case iSelectIndex

   Case 1 'A

      objComboBox2.SelIndex = 1

      objComboBox2.SelText = "1"

      objComboBox2.SelIndex = 2

      objComboBox2.SelText = "2"

      objComboBox2.SelIndex = 3

      objComboBox2.SelText = "3"      

   Case 2 'B

      objComboBox2.SelIndex = 1

      objComboBox2.SelText = "4"

      objComboBox2.SelIndex = 2

      objComboBox2.SelText = "5"

      objComboBox2.SelIndex = 3

      objComboBox2.SelText = "6" 

   Case 3 'C

      objComboBox2.SelIndex = 1

      objComboBox2.SelText = "7"

      objComboBox2.SelIndex = 2

      objComboBox2.SelText = "8"

      objComboBox2.SelIndex = 3

      objComboBox2.SelText = "9" 

   End Select

   objComboBox2.SelIndex = 1 '默认选择第一项

End Sub