Botones de navegación de la libreta de direcciones

La aplicación Libreta de direcciones muestra los botones de navegación en la parte inferior de la página web. Puede usar los botones de navegación para navegar por los datos de la pantalla de cuadrícula HTML seleccionando la primera o la última fila de datos, o filas adyacentes a la selección actual.

Importante

A partir de Windows 8 y Windows Server 2012, los componentes del servidor RDS ya no se incluyen en el sistema operativo Windows (para obtener más información, consulte Windows 8 y la Guía de compatibilidad de Windows Server 2012, edición Cookbook). Los componentes de cliente de RDS se eliminarán en una versión futura de Windows. Evite utilizar esta característica en nuevos trabajos de desarrollo y tenga previsto modificar las aplicaciones que actualmente la utilizan. Las aplicaciones que usan RDS deben migrar al servicio de datos WCF.

Procedimientos sub de navegación

La aplicación Libreta de direcciones contiene varios procedimientos que permiten a los usuarios hacer clic en los botones First, Next, Previous y Last para desplazarse por los datos.

Por ejemplo, al hacer clic en el botón First (Primero ), se activa el procedimiento VBScript First_OnClick Sub. El procedimiento ejecuta un método MoveFirst, que convierte la primera fila de datos en la selección actual. Al hacer clic en el último botón, se activa el procedimiento Last_OnClick Sub, que invoca el método MoveLast, haciendo la última fila de datos de la selección actual. Los botones de navegación restantes funcionan de forma similar.

' Move to the first record in the bound Recordset.  
Sub First_OnClick  
   DC1.Recordset.MoveFirst  
End Sub  
  
' Move to the next record from the current position   
' in the bound Recordset.  
Sub Next_OnClick  
   If Not DC1.Recordset.EOF Then    ' Cannot move beyond bottom record.  
      DC1.Recordset.MoveNext  
      Exit Sub  
   End If     
End Sub  
  
' Move to the previous record from the current position in the bound   
' Recordset.  
Sub Prev_OnClick  
   If Not DC1.Recordset.BOF Then    ' Cannot move beyond top record.  
      DC1.Recordset.MovePrevious  
      Exit Sub  
   End If  
End Sub  
  
' Move to the last record in the bound Recordset.  
Sub Last_OnClick  
   DC1.Recordset.MoveLast  
End Sub  

Consulte también

Objeto DataControl (RDS)
MoveFirst, MoveLast, MoveNext y MovePrevious métodos (RDS)