VBA - 查询自定义类的集合

Question

在VBA中是否有一种方法可以查询名为People的自定义类的集合。 假设我有一个具有名字，姓氏和标题的自定义类。

‘private attributes
Private pFirstName as String
Private pLastName as String
Private pTitle as String

‘Get/Let Methods
Public Property Get FirstName() as String
FirstName = pFirstName
End Property

Public Property Let FirstName (Value as String)
pFirstName = Value
End Property

Public Property Get LastName() as String
LastName = pLastName
End Property

Public Property Let LastName(Value as String)
pLastName = Value
End Property

Public Property Get Title() as String
Title = pTitle
End Property

Public Property Title Let (Value as String)
pTitle = Value
End Property

然后，在我的主要SUB中，创建了一组人。 有没有办法查询该集合，即，给我所有名字==杰克的人。

谢谢

Answer 1

你可以用自己的方式来实现这样的东西，这样你就可以做一些疯狂的事情：

Dim items As LinqEnumerable
Set items = LinqEnumerable.FromCollection(myCollection) _
                          .Where("x => x.FirstName = ""Jack""")

Dim p As Person '"People" is plural, you don't want a pluralized class name here.
For Each p In items
    Debug.Print p.FirstName
Next

但这非常过分，而且效率低下。 您只需要一个循环和一个条件：

For Each p In myCollection
    If p.FirstName = "Jack" Then
        'we have a winner
    End If
Next