Passaggio 3: Popolare la casella di riepilogo dei campi

Per popolare l'elenco Campi, inserire il codice seguente nella gestione 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 istanzia gli oggetti locali Record e Recordset, rispettivamente rec e rs.

La riga corrispondente alla risorsa selezionata in lstMain è impostata come riga corrente di grs. La casella di riepilogo dettagli viene quindi svuotata e rec viene aperta con la riga corrente di grs come origine.

Se la risorsa è un registro della collezione, secondo quanto specificato da RecordType, il recordset locale rs viene aperto sui figli del record rec. Quindi lstDetails viene riempito con i valori delle righe di rs.

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

Non viene implementato alcun codice se la risorsa è un documento strutturato.

Vedere anche

scenario di pubblicazione Internet
Passaggio 2: Inizializzare l'elenco principale
Passaggio 4: Compilare la casella di testo Dettagli