Adress Book-Navigationsschaltflächen
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.
Sub-Prozeduren für die Navigation
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)