Nota:
El acceso a esta página requiere autorización. Puede intentar iniciar sesión o cambiar directorios.
El acceso a esta página requiere autorización. Puede intentar cambiar los directorios.
Establece el criterio de ordenación de los datos de la combinación de correspondencia.
Sintaxis
expresión. SetSortOrder (SortField1, SortAscending1, SortField2, SortAscending2, SortField3, SortAscending3)
expresión Variable que representa un objeto OfficeDataSourceObject .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| SortField1 | Obligatorio | String | Primer campo por el que se ordenan los datos de combinación de correspondencia. |
| SortAscending1 | Opcional | Boolean | Es true (valor predeterminado) para realizar a una ordenación ascendente según SortField1; Ordenar es false para realizar una descendente. |
| SortField2 | Opcional | String | Segundo campo por el que se van a ordenar los datos de la combinación de correspondencia. El valor predeterminado es una cadena vacía. |
| SortAscending2 | Opcional | Boolean | Es true (valor predeterminado) para realizar a una ordenación ascendente según SortField2; Ordenar es false para realizar una descendente. |
| SortField3 | Opcional | String | Tercer campo por el que se van a ordenar los datos de la combinación de correspondencia. El valor predeterminado es una cadena vacía. |
| SortAscending3 | Opcional | Boolean | Es true (valor predeterminado) para realizar a una ordenación ascendente según SortField3; Ordenar es false para realizar una descendente. |
Ejemplo
En el ejemplo siguiente se ordena primero el origen de datos según el código postal en orden descendente y, a continuación, el apellido y el nombre en orden ascendente.
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
Vea también
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.