Schritt 3: Auffüllen des Listenfelds „Fields“

Um das Listenfeld „Felder“ aufzufüllen, fügen Sie den folgenden Code in den Click-Ereignishandler von lstMain ein:

Private Sub lstMain_Click()  
    Dim rec As Record  
    Dim rs As Recordset  
    Set rec = New Record  
    Set rs = New Recordset  
    grs.MoveFirst  
    grs.Move lstMain.ListIndex  
    lstDetails.Clear  
    rec.Open grs  
    Select Case rec.RecordType  
        Case adCollectionRecord:  
            Set rs = rec.GetChildren  
            While Not rs.EOF  
                lstDetails.AddItem rs(0)  
                rs.MoveNext  
            Wend  
        Case adSimpleRecord:  
            recFields rec, lstDetails, txtDetails  
  
        Case adStructDoc:  
    End Select  
  
End Sub  

Dieser Code deklariert und instanziiert lokale Datensatz- und Recordsetobjekte (rec bzw. rs).

Die der in lstMain ausgewählten Ressource entsprechende Zeile wird zur aktuellen Zeile von grs. Anschließend wird das Listenfeld „Details“ gelöscht, und rec wird mit der aktuellen Zeile von grs als Quelle geöffnet.

Wenn die Ressource ein Auflistungsdatensatz ist, wie von RecordType angegeben, wird das lokale Recordset rs für die untergeordneten Elemente von „rec“ geöffnet. lstDetails wird anschließend mit den Werten aus den Zeilen von rs aufgefüllt.

Ist die Ressource ein einfacher Datensatz, wird recFields aufgerufen. Weitere Informationen zu recFields finden Sie im nächsten Schritt.

Wenn die Ressource ein strukturiertes Dokument ist, wird kein Code implementiert.

Weitere Informationen

Szenario: Veröffentlichung im Internet
Schritt 2: Initialisieren des Listenfelds „Main“
Schritt 4: Auffüllen des Textfelds „Details“