For Next Loop to get matching value from Listbox

I have a Listbox that contains item numbers. I need to perform an action if the Item number entered on a Customer Order Line contains one that is in the Listbox. If I try the following, I get an error that QCItemList is not declared. I know I am missing something here, but not sure how I actually need to declare the Listbox. Can anyone offer a suggestion on this?

Sub QualityHoldOn()
Dim sCustNum As String = ThisForm.PrimaryIDOCollection.GetCurrentObjectProperty("Adr0Name")
If sCustNum.Contains("Rangeline") Then
Dim myVariable As String = ThisForm.Components("ItemEdit").Value
For x As Integer = 0 To QCItemList.Items.Count -1
If QCItemList.Items(x).Contains(myVariable) Then
ThisForm.Components("cbQualityHold").Enabled = True
ThisForm.Components("cbQualityHold").Value = "1"
ThisForm.Components("AllowOnPickListEdit").Enabled = False
ThisForm.Components("AllowOnPickListEdit").Value = "0"
End If
Next
End If
End Sub

Find more posts tagged with

General Discussions

Accepted answers

All comments

Stephen Cena

Is QCItemList the name of the component or what is it referencing?

unknown

Stephen, it is the name of the ListBox Component on my form.

burnsg

Try

Dim QCItemListAs IWSFormComponent
QCItemList= ThisForm.Components("QCItemList")

unknown

This is what I get now:

Stephen Cena

"Items" isn't part of the IWSFormComponent. What I usually do is put in the component followed by as period & then look at autocomplete.

This will tell you what you can/can't reference.

I *think* what you're looking for is .List . I know in some old code (I have since changed) I've traversed all the items but I can't remember if that's what I used or not.

burnsg

Could you perhaps loop through its contents looking for your value and then act on it if found?

For i As Integer = 1 To QCItemListAs.GetListBoxCount ' is this zero based?
Dim s As String = QCItemListAs.GetListBoxText(i-1)
Next

unknown

How about:

Sub QualityHoldOn()
Dim sCustNum As String = ThisForm.PrimaryIDOCollection.GetCurrentObjectProperty("Adr0Name")
If sCustNum.Contains("Rangeline") Then
Dim myVariable As String = ThisForm.Components("ItemEdit").Value
For x As Integer = 0 To ThisForm.Components("QCItemList").GetListBoxCount - 1
If ThisForm.Components("QCItemList").GetListValue(x,1)= myVariable Then ('x,1) or maybe (x,0)
ThisForm.Components("cbQualityHold").Enabled = True
ThisForm.Components("cbQualityHold").Value = "1"
ThisForm.Components("AllowOnPickListEdit").Enabled = False
ThisForm.Components("AllowOnPickListEdit").Value = "0"
End If
Next
End If
End Sub

unknown

Here was what finally worked. Thank you all for your help!

Sub QualityHoldOn()
Dim sCustNum As String = ThisForm.PrimaryIDOCollection.GetCurrentObjectProperty("Adr0Name")
If sCustNum.Contains("Rangeline") Then
Dim myVariable As String = ThisForm.Components("ItemEdit").Value
ThisForm.Components("edit2_SITE").Value = myVariable
For x As Integer = 0 To ThisForm.Components("QCItemList").GetListBoxCount -1
Dim output As String = ThisForm.Components("QCItemList").GetListValue(x,0)
ThisForm.Components("edit3_SITE").Value = output
If myVariable.StartsWith(ThisForm.Components("QCItemList").GetListValue(x,0)) Then
ThisForm.Components("cbQualityHold").Enabled = True
ThisForm.Components("cbQualityHold").Value = "1"
ThisForm.Components("AllowOnPickListEdit").Enabled = False
ThisForm.Components("AllowOnPickListEdit").Value = "0"
End If
Next
End If
End Sub

Copyright © 2025 Infor. All rights reserved.