добавление элементов в просмотр списка во время выполнения

Question

Когда я добавляю новые значения в список с помощью:

    Set lstView = ListView(0).ListItems.Add(, , txtName)
    lstView.ListSubItems.Add , , txtValue
    lstView.Refresh

Единственная проблема заключается в том, что в представлении списка отображается только пустая новая строка. Есть идеи, как его правильно обновить?

Обычно я использую набор записей, поэтому достаточно просто очистить, а затем снова заполнить данные, но мне нужно, чтобы пользователь мог добавлять записи в просмотр списка. Затем я прокручиваю просмотр списка, добавляя значения в БД, только когда пользователь закончит вносить изменения в просмотр списка.

Заранее спасибо за любую помощь.

Answer 1

Предполагая, что свойство .View вашего ListView установлено в «Отчет», следующее добавит пару строк в элемент управления и задаст текст подпункта.

Dim li As ListItem

With ListView1
    .ColumnHeaders.Add , , "One"
    .ColumnHeaders.Add , , "Two"
    .ColumnHeaders.Add , , "Three"

    Set li = .ListItems.Add(, , "Row1Item1")
    li.SubItems(1) = "Row1Item2"
    li.SubItems(2) = "Row1Item3"

    Set li = .ListItems.Add(, , "Row2Item1")
    li.SubItems(1) = "Row2Item2"
    li.SubItems(2) = "Row2Item3"
End With