Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: MS ACCESS

Вопросы связанные с MS ACCESS

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: 2002-2003 листбокс
 
 автор: alecks_lp   (09.04.2007 в 12:25)   личное сообщение
 
 

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

После удаления первого элемента цикл завершается.
Подскажите как решать такую задачку.

  Ответить  
 
 автор: KrukVN   (09.04.2007 в 12:55)   личное сообщение
 
 

удалять нужно с конца
список сдвигается после уделения первой же строки и т.д.

  Ответить  
 
 автор: osmor   (09.04.2007 в 13:18)   личное сообщение
 
 

Не тут дело не только в этом... ItemsSelected становится пустой сразу после первого удаления.
т.е. надо сначала получить все id строк в массив, а потом удалять

  Ответить  
 
 автор: KrukVN   (09.04.2007 в 13:26)   личное сообщение
10 Кб.
 
 

Согласен :)
см. файл

  Ответить  
 
 автор: alecks_lp   (09.04.2007 в 17:36)   личное сообщение
 
 

hiprog - forever!

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList