collectionfilterby.format

客户关系管理系统ASP.NET+VB.NET编程完整程序！

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


        Public Function FilterBy{1}(ByVal searchValue As {2}, ByVal comparer As CompareType) As {0}Collection
            Dim retCollection = New {0}Collection()
            Dim _{0} As {0}

            For Each _{0} In Me.List
                If Match(comparer, _{0}.{1}, searchValue) Then
                    retCollection.Add(_{0})
                End If
            Next
            		
			retCollection.Parent = Me.Parent

            Return retCollection
        End Function