Results 集合

Search Results NameSpace

存储由 Search 对象和 AdvancedSearch 方法返回的数据和结果。Results 对象包含的属性和方法可以查看和操作数据。例如，GetNext、GetPrevious、GetFirst 和 GetLast 方法可以遍历结果集并按字段查看数据。Sort 方法可以对数据排序。

使用 Results 集合

使用 SearchObject.Results 属性返回 Results 对象。以下事件过程将搜索结果存储在名为“objRsts”的变量中，并将搜索结果显示在“立即窗口”中。

Private Sub Application_AdvancedSearchComplete(ByVal SearchObject As Search)

    Dim objRsts As Results
    MsgBox "The search " & SearchObject.Tag & _
        "has completed. The scope of the search was " & _
        SearchObject.Scope & "."
    Set objRsts = SearchObject.Results
    'Print out number in Results collection
    Debug.Print objRsts.Count
    'Print out each member of Results collection
    For Each Item In objRsts
        Debug.Print Item
    Next

End Sub