Office VBA教程:SetSortOrder方法

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

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

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

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

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

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

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

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

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

VBA示例

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


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

上页:Office VBA教程:SetFocus方法 下页:Office VBA教程:Show方法

Office VBA教程:SetSortOrder方法

Office VBA教程:Show方法 Office VBA教程:ShowPopup方法
Office VBA教程:StartWizard方法 Office VBA教程:Update方法
Office VBA教程:新增方法 Office VBA教程:AnswerWizard对象
Office VBA教程:AnswerWizardFiles集合对象 Office VBA教程:Assistant对象
Office VBA教程:Balloon对象 Office VBA教程:BalloonCheckBox对象
Office VBA教程:BalloonCheckboxes集合对象 Office VBA教程:BalloonLabel对象
Office VBA教程:BalloonLabels集合对象 Office VBA教程:COMAddIn对象
Office VBA教程:COMAddIns集合对象 Office VBA教程:CommandBar对象
Office VBA教程:CommandBarButton对象 Office VBA教程:CommandBarComboBox对象
Office VBA教程:CommandBarControl对象 Office VBA教程:CommandBarControls集合对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号