Шаг 3. Заполнение списка полей

Чтобы заполнить список Поля, вставьте следующий код в обработчик события Click объекта 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  

Этот код объявляет и создает локальные объекты Record и Recordset и recrsсоответственно.

Строка, соответствующая ресурсу, выбранному в , lstMain становится текущей строкой grs. Затем снимите список Сведения и rec откроется текущая строка в grs качестве источника.

Если ресурс является записью коллекции, как указано в RecordType, локальный набор rs записей открывается в дочерних элементах rec. Затем lstDetails заполняется значениями из строк rs.

Если ресурс является простой записью, recFields вызывается метод . Дополнительные сведения о recFieldsсм. в следующем шаге.

Код не реализуется, если ресурс является структурированным документом.

См. также:

Сценарий публикации в Интернете
Шаг 2. Инициализация главного списка
Шаг 4. Заполнение текстового поля сведений