Vb.net 从列表框中查找特定的客户类型

我想问一下我的工作

我必须从

列表框客户类型

中找到具体的客户类型，即

成人、儿童、特许

这是我的密码：

    Dim iCounter As Integer = 0
    Dim sCustType As String = ""

    sCustType = "adult" Or "child" Or "concession"


    For iCounter = 0 To lstCustType.Items.Count + 1

        If lstCustType.Items(iCounter) = sCustType Then

            lstQuoteResult.Items.Add(lstQuoteNum.Items(iCounter))
            lstCustResult.Items.Add(lstCustType.Items(iCounter))
            lstBagResult.Items.Add(lstBaggageWeight.Items(iCounter))
            lstBagWeightResult.Items.Add(lstBagWeight.Items(iCounter))
            lstDestResult.Items.Add(lstDestinationCost.Items(iCounter))
            lstTripResult.Items.Add(lstHighSesason.Items(iCounter))
            lstQuiteResult.Items.Add(lstQuiteCarriageCost.Items(iCounter))
            lstInsResult.Items.Add(lstInsurance.Items(iCounter))
            lstInsCResult.Items.Add(lstInsuraneCost.Items(iCounter))
            lstReturnResult.Items.Add(lstReturnTripCost.Items(iCounter))
            lstTotalResult.Items.Add(lstTotal.Items(iCounter))
        End If
    Next

但它不起作用。显然有一个错误，从字符串“成人”到类型“Long”的转换无效。

请帮帮我

---

谢谢。

在比较物品时尝试添加.ToString：

If lstCustType.Items(iCounter).ToString() = sCustType Then

此外，循环将抛出一个错误，因为您应该在计数后逐步递减1，而不是递增1，因为列表框的索引从0开始。当listbox试图访问一个不存在的索引时，这最终会抛出一个错误。应改为：

For iCounter = 0 To lstCustType.Items.Count - 1

sCustType=“成人”或“儿童”或“特许权”

使用像这样的or运算符，编译器希望在2个长度上执行按位or。您可能需要创建一个客户类型集合，然后使用LINQ对项目集合进行特定搜索