SetSortOrder 方法

优质

小牛编辑

130浏览

2023-12-01

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

expression.SetSortOrder(SortField1, SortAscending1, SortField2, SortAscending2, SortField3, SortAscending3)

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

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

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

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

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

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

SortAscending3Boolean 类型，可选。设置为 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