Поделиться через

Шаг 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, rec и rsсоответственно.

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

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

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

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

См. также

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