Paso 3: Llenar el 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, rec y 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 se abre rec con la fila actual de grs como origen.

Si el recurso es un registro de la colección, según lo especificado por RecordType, el Recordset local rs se abre en los subelementos 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 obtener 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: Inicializar el cuadro de lista principal
paso 4: Rellenar el cuadro de texto Detalles