добавление элементов в просмотр списка во время выполнения
-
22-07-2019 - |
Вопрос
Когда я добавляю новые значения в список с помощью:
Set lstView = ListView(0).ListItems.Add(, , txtName)
lstView.ListSubItems.Add , , txtValue
lstView.Refresh
Единственная проблема заключается в том, что в представлении списка отображается только пустая новая строка. Есть идеи, как его правильно обновить?
Обычно я использую набор записей, поэтому достаточно просто очистить, а затем снова заполнить данные, но мне нужно, чтобы пользователь мог добавлять записи в просмотр списка. Затем я прокручиваю просмотр списка, добавляя значения в БД, только когда пользователь закончит вносить изменения в просмотр списка.
Заранее спасибо за любую помощь.
Решение
Предполагая, что свойство .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
Не связан с StackOverflow