External Rule: User parameter - Text Variable does not update

[RoyWickrama_RWEI]

My user parameter text variable doesn't update but the numerical user parameters update. I need help.

I run the folloeing as an external rule

Sub Main()
'Dim Choose As New ArrayList

Dim oGauges As New ArrayList

    oGauges.add("GA10")
    oGauges.add("GA11")
	oGauges.add("GA12")
    oGauges.add("GA13")
    oGauges.add("GA14")
	oGauges.add("GA15")
    oGauges.add("GA16")
    oGauges.add("GA17")
	oGauges.add("GA18")
    oGauges.add("GA19")
	oGauges.add("GA20")
    oGauges.add("GA20")
    oGauges.add("GA21")
	oGauges.add("GA22")
    oGauges.add("GA23")
    oGauges.add("GA24")
	oGauges.add("GA25")
    oGauges.add("GA26")
    oGauges.add("GA27")
	oGauges.add("GA28")
    oGauges.add("GA29")
	oGauges.add("GA30")

	'oGauges_IP = InputListBox("SELECT GAUGE THICKNESS", oGauges, oGauges(0), Title := "LIST OF GAUGES (BARE)", ListName := "SHEET METAL GAUGES")

	Parameter("GA_SHT") = InputListBox("SELECT GAUGE THICKNESS", oGauges, oGauges(0), Title := "LIST OF GAUGES (BARE)", ListName := "SHEET METAL GAUGES")

	oThickness_SUB(Parameter("GA_SHT"))
	iLogicVb.UpdateWhenDone = True

End Sub

Sub oThickness_SUB(X)
MessageBox.Show("Message" & X, "Title")

If X = "GA10" Then Parameter("Thickness") = 0.1345
If X = "GA11" Then Parameter("Thickness") = 0.1196
If X = "GA12" Then Parameter("Thickness") = 0.1046
If X = "GA13" Then Parameter("Thickness") = 0.0897
If X = "GA14" Then Parameter("Thickness") = 0.0747
If X = "GA15" Then Parameter("Thickness") = 0.0673
If X = "GA16" Then Parameter("Thickness") = 0.0598
If X = "GA17" Then Parameter("Thickness") = 0.0538
If X = "GA18" Then Parameter("Thickness") = 0.0478
If X = "GA19" Then Parameter("Thickness") = 0.0418
If X = "GA20" Then Parameter("Thickness") = 0.0359
If X = "GA21" Then Parameter("Thickness") = 0.0329
If X = "GA22" Then Parameter("Thickness") = 0.0299
If X = "GA23" Then Parameter("Thickness") = 0.0269
If X = "GA24" Then Parameter("Thickness") = 0.0239
If X = "GA25" Then Parameter("Thickness") = 0.0209
If X = "GA26" Then Parameter("Thickness") = 0.0179
If X = "GA27" Then Parameter("Thickness") = 0.0164
If X = "GA28" Then Parameter("Thickness") = 0.0149
If X = "GA29" Then Parameter("Thickness") = 0.0135
If X = "GA30" Then Parameter("Thickness") = 0.0120
iLogicVb.UpdateWhenDone = True
End Sub

[RoyWickrama_RWEI]

I found that one of my rule created in the part (it was for some testing) was the reason.

I thing, for now, I am OK.

Thanks. 

[Owner2229]

Hey, use this to fill the list:

Dim oGauges As New ArrayList
For i As Integer = 10 To 30
    oGauges.add("GA" & CStr(i))
Next

And as for the thickness Sub:

Sub oThickness_SUB(X)
    MessageBox.Show("Message" & X, "Title")
    
    Dim CaseVal As Integer = Val(X.Replace("GA", ""))
    Dim NewVal As Double = 0
    Select Case CaseVal
    Case 10: NewVal = 0.1345
    Case 11: NewVal = 0.1196
    Case 12: NewVal = 0.1046
    Case 13: NewVal = 0.0897
    Case 14: NewVal = 0.0747
    Case 15: NewVal = 0.0673
    Case 16: NewVal = 0.0598
    Case 17: NewVal = 0.0538
    Case 18: NewVal = 0.0478
    Case 19: NewVal = 0.0418
    Case 20: NewVal = 0.0359
    Case 21: NewVal = 0.0329
    Case 22: NewVal = 0.0299
    Case 23: NewVal = 0.0269
    Case 24: NewVal = 0.0239
    Case 25: NewVal = 0.0209
    Case 26: NewVal = 0.0179
    Case 27: NewVal = 0.0164
    Case 28: NewVal = 0.0149
    Case 29: NewVal = 0.0135
    Case 30: NewVal = 0.0120
    Case Else: Exit Sub
    End Select

    Parameter("Thickness") = NewVal
    iLogicVb.UpdateWhenDone = True
End Sub