在VB.NET中使用List.Find函数

Question

我有两列数据。其中一列包含字符串值，另一列包含十进制值。我想通过选择字符串值来选择十进制值。

string          decimal
Jewel           10
Hasan           20

如何选择 Jewel，使其返回 10？

- Syed Md. Kamruzzaman

---

这是一个“List”还是什么？你如何存储你的列？ - Andrey Gordeev

Dim DisputeList As List(Of InvoiceSOA) = db.GetList(Of InvoiceSOA)("OraclePackage", params)声明 DisputeList 为 InvoiceSOA 列表类型，并通过 db.GetList(Of InvoiceSOA)("OraclePackage", params) 方法获取数据。 - Syed Md. Kamruzzaman

什么是InvoiceSOA？请更新您的问题。 - Andrey Gordeev

它是一个包含列名的实体。 - Syed Md. Kamruzzaman

Answer 1

试试这个：

Dim selectedValues As List(Of InvoiceSOA)
selectedValues = DisputeList.FindAll(Function(p) p.ColumnName = "Jewel")

或者，如果您需要第一个出现的“Jewel”，请使用以下内容：

Dim selectedValue As InvoiceSOA
selectedValue = DisputeList.Find(Function(p) p.ColumnName = "Jewel")

- Andrey Gordeev

Answer 2

Dim selectedValue As InvoiceSOA = DisputeList.Find(Function(p) 
        if p.ColumnName = "Jewel" then
            return true
        end if
    end function)

- Badz

Answer 3

枚举功能是解决这个问题的正确方法。

例如：

Public Enum Ornaments
    Neclace = 10
    Bangle = 20
    TieClip = 30
End Enum

如何使用这个枚举

Dim SelectedOrnament As Ornaments = Ornaments.Bangle

Select Case SelectedOrnament

    Case Ornaments.Neclace
        MsgBox("Your ornament is: " & Ornaments.Neclace)

    Case Ornaments.Bangle
        MsgBox("Your ornament is: " & Ornaments.Bangle)

    Case Ornaments.TieClip
        MsgBox("Your ornament is: " & Ornaments.TieClip)

    Case Else
        MsgBox("I could not find your ornament. Sorry")

End Select

- Venkat

---

枚举索引允许使用十进制/双精度值吗？ - Chase