Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Legt die Sortierreihenfolge für Seriendruckdaten fest.
Syntax
Ausdruck. SetSortOrder (SortField1, SortAscending1, SortField2, SortAscending2, SortField3, SortAscending3)
Ausdruck Eine Variable, die ein OfficeDataSourceObject-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| SortField1 | Erforderlich | String | Das erste Feld, nach dem die Seriendruckdaten sortiert werden sollen. |
| SortAscending1 | Optional | Boolean | "True" (Standard), um eine aufsteigende Sortierung nach SortField1; ausführen "False" zum Ausführen eines absteigenden sortieren. |
| SortField2 | Optional | String | Das zweite Feld, nach dem die Seriendruckdaten sortiert werden sollen. Der Standardwert ist eine leere Zeichenfolge. |
| SortAscending2 | Optional | Boolean | "True" (Standard), um eine aufsteigende Sortierung nach SortField2; ausführen "False" zum Ausführen eines absteigenden sortieren. |
| SortField3 | Optional | String | Das dritte Feld, nach dem die Seriendruckdaten sortiert werden sollen. Der Standardwert ist eine leere Zeichenfolge. |
| SortAscending3 | Optional | Boolean | "True" (Standard), um eine aufsteigende Sortierung nach SortField3; ausführen "False" zum Ausführen eines absteigenden sortieren. |
Beispiel
Im folgenden Beispiel wird die Datenquelle zuerst nach Postleitzahl in absteigender Reihenfolge und dann nach Nach- und Vornamen in aufsteigender Reihenfolge sortiert.
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
Siehe auch
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.