Freigeben über

Schritt 3: Auffüllen des Listenfelds "Felder"

  • Artikel

Um das Listenfeld "Felder" aufzufüllen, fügen Sie den folgenden Code in den Click-Ereignishandler von lstMainein:

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 Record- und Recordset-Objekte, rec bzw. rs.

Die Zeile, die der in lstMain ausgewählten Ressource entspricht, wird zur aktuellen Zeile grs. Anschließend wird das Listenfeld "Details" gelöscht, und rec wird geöffnet, wobei die aktuelle Zeile von grs als Quelle dient.

Wenn es sich bei der Ressource um einen Sammlungsdatensatz handelt, wie durch RecordTypeangegeben, wird das lokale Recordset rs für die untergeordneten Elemente von rec geöffnet. Anschließend wird lstDetails mit den Werten aus den Zeilen von rsgefüllt.

Wenn es sich bei der Ressource um einen einfachen Datensatz handelt, wird recFields aufgerufen. Weitere Informationen zu recFieldsfinden Sie im nächsten Schritt.

Wenn es sich bei der Ressource um ein strukturiertes Dokument handelt, wird kein Code implementiert.

Siehe auch

Internet Publishing-Szenario
Schritt 2: Initialisieren des Hauptlistenfelds
Schritt 4: Füllen des Textfelds "Details"