| |
|
|
| | Есть форма. На форме список. Источник данных - список значений. Множественный выбор разрешен. Пользователь выбирает необходимые элементы. Выбранные элементы следует удалить.
Вот пример: Попытка удалить несколько элементов из списка:
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!  | |
| |
| |