collectionfindby.format

来自「客户关系管理系统ASP.NET+VB.NET编程完整程序！」· FORMAT 代码 · 共 15 行

        Public Function FindBy{1}(ByVal searchValue As {2}) As {0}
            Return FindBy{1}(searchValue, CompareType.Exact)
        End Function


        Public Function FindBy{1}(ByVal searchValue As {2}, ByVal comparer As CompareType) As {0}
            Dim _{0} As {0}
            For Each _{0} In Me.List
                If Match(comparer, _{0}.{1}, searchValue) Then Return _{0}
            Next

            Return Nothing
        End Function