使用vb.net查找与dataTable.rows.find等效的泛型列表?

只需将谓词放在类实例中:

Public Class KeyMatcher
    Public Sub New(ByVal KeyToMatch As String)
       Me.KeyToMatch = KeyToMatch
    End Sub

    Private KeyToMatch As String

    Public Function Predicate(ByVal Instance As MyClass) As Boolean
       Return Instance.Key = KeyToMatch
    End Function
End Class

然后:

Dim Blah As MyClass = MyList.Find(AddressOf New KeyMatcher("testKey").Predicate)

我们甚至可以得到一点幻想,使这个通用:

Public Interface IKeyed(Of KeyType)
    Public Key As KeyType
End Interface

Public Class KeyMatcher(Of KeyType)
    Public Sub New(ByVal KeyToMatch As KeyType)
       Me.KeyToMatch = KeyToMatch
    End Sub

    Private KeyToMatch As KeyType

    Public Function Predicate(ByVal Instance As IKeyed(Of KeyType)) As Boolean
       Return Instance.Key = KeyToMatch
    End Function
End Class

然后让myClass类型实现新的ikeyed接口