Etapa 3: Preencher a lista de campos na caixa de listagem

Para preencher a caixa de listagem Campos, insira o seguinte código no manipulador do evento de clique 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  

Esse código declara e instancia objetos locais Record e Recordset, rec e rs, respectivamente.

A linha correspondente ao recurso selecionado no lstMain se torna a linha atual de grs. Em seguida, a caixa de listagem Detalhes é esvaziada e rec é aberto com a linha atual de grs como a origem.

Se o recurso for um registro de coleção, conforme especificado por RecordType, o conjunto de registros local rs será aberto nos filhos do registro. Então lstDetails é preenchido com os valores das linhas de rs.

Se o recurso for um registro simples, recFields será chamado. Para obter mais informações sobre recFields, consulte a próxima etapa.

Nenhum código será implementado se o recurso for um documento estruturado.

Consulte Também

cenário de publicação na Internet
Etapa 2: inicializar a caixa de listagem principal
Etapa 4: Preencher a caixa de texto Detalhes