Paso 3: Relleno del cuadro de lista de campos

Para rellenar el cuadro de lista Campos, inserte el código siguiente en el controlador de eventos Click de 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  

Este código declara y crea instancias de objetos Record y Recordset locales, y rec, rs respectivamente.

La fila correspondiente al recurso seleccionado en lstMain se convierte en la fila actual de grs. A continuación, se borra el cuadro de lista Detalles y rec se abre con la fila actual de grs como origen.

Si el recurso es un registro de colección, tal y como especifica RecordType, el objeto Recordset rs local se abre en los elementos secundarios de rec. A continuación, lstDetails se rellena con los valores de las filas de rs.

Si el recurso es un registro simple, se llama a recFields. Para más información sobre recFields, consulte el paso siguiente.

No se implementa ningún código si el recurso es un documento estructurado.

Consulte también

Escenario de publicación en Internet
Paso 2: Inicialización del cuadro de lista principal
Paso 4: Relleno del cuadro de texto de detalles