Outlook) (Table.EndOfTable 属性

返回一个 boolean 类型的值 ，该值指示当前行是否位于 表 对象中的最后一行之后。 此为只读属性。

语法

expression。 EndOfTable

表达 一个代表 Table 对象的变量。

备注

当您打开一个 表 使用 Folder.GetTable 、 Search.GetTable 或 Table.Restrict 时， EndOfTable 的值取决于 表 中的行数。 如果不有任何行，则 EndOfTable 将返回 True。 如果行，则 EndOfTable 返回 False ，直到将光标移动到 Table中的最后一行之外。

表 有两个虚拟 空 行，第一行前面一个，另一个 表 中的最后一行之后。 每次调用 Table.GetNextRow 将当前行移到下一行的 表 中，并返回一个 Row 对象，该对象表示当前行。

如果当前行之后的最后一行和 假 如果当前行上或之前的最后一行，则 EndOfTable 属性返回 True 。

示例

下面的代码示例 Jet 筛选器应用于收件箱获取项具有大于 2005 年 11 月 1 日 LastModificationTime表 中的项。 然后使用 EndOfTable 属性枚举 表 中的项和打印的每个 表 中的项的默认属性值。

Sub DemoTable() 
 'Declarations 
 Dim Filter As String 
 Dim oRow As Outlook.Row 
 Dim oTable As Outlook.Table 
 Dim oFolder As Outlook.Folder 
 
 'Get a Folder object for the Inbox 
 Set oFolder = Application.Session.GetDefaultFolder(olFolderInbox) 
 
 'Define Filter to obtain items last modified after November 1, 2005 
 Filter = "[LastModificationTime] > '11/1/2005'" 
 'Restrict with Filter 
 Set oTable = oFolder.GetTable(Filter) 
 
 'Enumerate the table using test for EndOfTable 
 Do Until (oTable.EndOfTable) 
 Set oRow = oTable.GetNextRow() 
 Debug.Print (oRow("EntryID")) 
 Debug.Print (oRow("Subject")) 
 Debug.Print (oRow("CreationTime")) 
 Debug.Print (oRow("LastModificationTime")) 
 Debug.Print (oRow("MessageClass")) 
 Loop 
End Sub

另请参阅

表对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。