Passaggio 3: Popolare la casella di riepilogo Fields

Per popolare la casella di riepilogo Campi, inserire il codice seguente nel gestore dell'evento Click di lstMain:

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  

Questo codice dichiara e crea un'istanza degli oggetti Record e Recordset locali, rispettivamente rec e rs.

La riga corrispondente alla risorsa selezionata in lstMain viene effettuata la riga corrente di grs. La casella di riepilogo Dettagli viene quindi deselezionata e rec viene aperta con la riga corrente di grs come origine.

Se la risorsa è un record di raccolta, come specificato da RecordType, l'oggetto Recordset locale rs viene aperto sugli elementi figlio di rec. Quindi lstDetails viene riempito con i valori delle righe di rs.

Se la risorsa è un record semplice, recFields viene chiamato. Per altre informazioni su recFields, vedere il passaggio successivo.

Se la risorsa è un documento strutturato, non viene implementato alcun codice.

Vedi anche

Scenario di Internet Publishing
Passaggio 2: Inizializzare la casella di riepilogo Main
Passaggio 4: Popolare la casella di riepilogo Details