SetSortOrder 方法

设置邮件合并数据的排序次序。

expression   必需。该表达式返回“应用于”列表中的对象之一。

SortField1  String 类型，必需。排序邮件合并数据的第一个域。

SortAscending1  Boolean 类型，可选。设置为 True（默认值）将对 SortField1 执行升序排序，设置为 False 将执行降序排序。

SortField2  String 类型，可选。排序邮件合并数据的第二个域。默认为空字符串。

SortAscending2  Boolean 类型，可选。设置为 True（默认值）将对 SortField2 执行升序排序，设置为 False 将执行降序排序。

SortField3  String 类型，可选。排序邮件合并数据的第三个域。默认为空字符串。

SortAscending3  Boolean 类型，可选。设置为 True（默认值）将对 SortField3 执行升序排序，设置为 False 将执行降序排序。

示例

本示例首先对数据源按邮政编码降序排序，然后再按姓名升序排序。

Sub SetDataSortOrder()
    Dim appOffice As OfficeDataSourceObject

    Set appOffice = Application.OfficeDataSourceObject

    appOffice.Open bstrConnect:="DRIVER=SQL Server;SERVER=ServerName;" & _
        "UID=user;PWD=;DATABASE=Northwind", bstrTable:="Employees"

    appOffice.SetSortOrder SortField1:="ZipCode", _
        SortAscending1:=False, SortField2:="LastName", _
        SortField3:="FirstName"
End Sub