|
|
|
| Есть форма. На форме список. Источник данных - список значений. Множественный выбор разрешен. Пользователь выбирает необходимые элементы. Выбранные элементы следует удалить.
Вот пример: Попытка удалить несколько элементов из списка:
Dim lst As ListBox
Dim varItem As Variant
Dim MyCollection As Object
Set MyCollection = lst.ItemsSelected
For Each varItem In MyCollection
lst.RemoveItem (varItem)
Next varItem
После удаления первого элемента цикл завершается.
Подскажите как решать такую задачку. | |
|
| |
|
|
|
| удалять нужно с конца
список сдвигается после уделения первой же строки и т.д. | |
|
| |
|
|
|
| Не тут дело не только в этом... ItemsSelected становится пустой сразу после первого удаления.
т.е. надо сначала получить все id строк в массив, а потом удалять | |
|
| |
|
10 Кб. |
|
| Согласен :)
см. файл | |
|
| |
|
|
|
| hiprog - forever! | |
|
| |