Не удаётся удалить записи из ListView / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Не удаётся удалить записи из ListView

4 сообщений из 4, страница 1 из 1

Не удаётся удалить записи из ListView

#38853229

Namik

Гость

Доброго Вам времени суток
Уважаемые господа.

При наличии Вашего времени прошу Вас подсказать.

Вот таким кодом я удаляю записи из ListView .
Выбор удаляемой записи производится через Checkbox на ListView .

Код: vbnet

1.
2.
3.
4.
5.

For i = 1 To ListV1.ListItems.Count
If ListV1.ListItems.Item(i).Checked = True Then
ListV1.ListItems.Remove ListV1.ListItems.Item(i).Index
End If
Next

По одной записи данные удаляются нормально.
Но если выделить все записи или более одной, то выдаёт ошибку

Index out of bounds

Как это исправить ?

С Уважением и Благодарностью
Намик

...

Рейтинг:

0 / 0

13.01.2015, 14:59

| Ответить | Цитировать | Написать

Не удаётся удалить записи из ListView

#38853235

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Приветствую, Намик.

Когда вы удаляете какой-то элемент из середины, индексы всех нижележащих элементов меняются, естественно, вы потом натыкаетесь на уже несуществующий индекс. Ну как если бы вы в экселе удалили строчку из середины таблицы, все остальные нижележащие строчки поменяли бы свои номера

Используйте либо цикл по индексам от конца к началу, либо For Each вместо For по Item-ам

...

Рейтинг:

0 / 0

13.01.2015, 15:11

| Ответить | Цитировать | Написать

Не удаётся удалить записи из ListView

#38853243

Namik

Гость

Приветствую Вас Shocker.Pro

Понял Вас

С Уважением и Благодарностью
Намик

...

Рейтинг:

0 / 0

13.01.2015, 15:14

| Ответить | Цитировать | Написать

Не удаётся удалить записи из ListView

#38853295

Namik

Гость

Вот так всё работает.

Код: vbnet

1.
2.
3.
4.
5.

For i = ListV1.ListItems.Count To 1 Step -1
If ListV1.ListItems.Item(i).Checked = True Then
ListV1.ListItems.Remove ListV1.ListItems.Item(i).Index
End If
Next

С Уважением и Благодарностью
Намик

...

Рейтинг:

0 / 0

13.01.2015, 15:46

| Ответить | Цитировать | Написать

4 сообщений из 4, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Не удаётся удалить записи из ListView

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=38853235&tid=2156067]:	0ms
get settings:	9ms
get forum list:	13ms
check forum access:	3ms
check topic access:	3ms
track hit:	43ms
get topic data:	9ms
get forum data:	3ms
get page messages:	36ms
get tp. blocked users:	1ms
others:	15ms

total:	135ms