Adress Book-Navigationsschaltflächen

  • Artikel

Die Address Book-Anwendung zeigt die Navigationsschaltflächen unten auf der Webseite an. Mit den Navigationsschaltflächen können Sie durch die Daten in der HTML-Rasteranzeige navigieren, indem Sie entweder die erste oder die letzte Datenzeile oder Zeilen neben der aktuellen Auswahl auswählen.

Wichtig

Ab Windows 8 und Windows Server 2012 sind RDS-Serverkomponenten nicht mehr im Windows-Betriebssystem enthalten (weitere Informationen finden Sie in den jeweiligen Kompatibilitäts-Cookbooks zu Windows 8 und Windows Server 2012). RDS-Clientkomponenten werden in einer zukünftigen Version von Windows entfernt. Nutzen Sie diese Funktionen bei Neuentwicklungen nicht mehr, und planen Sie die Änderung von Anwendungen, die diese Funktion zurzeit verwenden. Anwendungen, die RDS verwenden, sollten zu WCF Data Service migriert werden.

Die Address Book-Anwendung enthält mehrere Prozeduren, mit denen Benutzer*innen durch Klicken auf die Schaltflächen Erste, Nächste, Vorherige und Letzte durch die Daten navigieren können.

Wenn Sie beispielsweise auf die Schaltfläche Erste klicken, wird die Sub-Prozedur „VBScript-First_OnClick“ aktiviert. Die Prozedur führt eine MoveFirst-Methode aus, die die erste Datenzeile zur aktuellen Auswahl macht. Durch Klicken auf die Schaltfläche Letzte wird die Sub-Prozedur „Last_OnClick Sub“ aktiviert, die die MoveLast-Methode aufruft und die letzte Datenzeile zur aktuellen Auswahl macht. Die übrigen Navigationsschaltflächen funktionieren in ähnlicher Weise.

' 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

Weitere Informationen

DataControl-Objekt (RDS)
MoveFirst-, MoveLast-, MoveNext- und MovePrevious-Methode (RDS)