Как удалить строки из таблицы в цикле без пропуска подходящих строк?

[Odineski]

Для Каждого СтрокаТЗЗ Из ОсновнаяТаблица Цикл
если СтрокаТЗЗ.Задолжность = 0.01 Тогда
Номерстроки =СтрокаТЗЗ.НомерСтроки;
ПроверкаТаб = ЭтотОбъект.ОсновнаяТаблица;
//ТабСтр =ОсновнаяТаблица.Получить(Номерстроки — 1);
ПроверкаТаб.Удалить(Номерстроки — 1);
КонецЕсли;
КонецЦикла;

Есть код который я сделал для своей обработки, при нажатии на кнопку она удаляет из таличной части строки, но почему то 2 строчики нне удоляется. из 90 строк удаляет 12 , а 2 нет

[Odin — Одинэсник]

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

Например:

1С (Код)

Строка 1 Строка 2 удалить Строка 3 после удаления становится строкой 2

1 2 3

Строка 1 Строка 2  удалить Строка 3  после удаления становится строкой 2

Цикл уже переходит дальше и строка 3 может быть пропущена. Особенно это заметно, если подходящие строки идут подряд.

Кроме того, НомерСтроки может быть просто значением вашей колонки, а не текущим индексом строки в табличной части. Поэтому удалять по НомерСтроки - 1 ненадёжно.

Используйте обход табличной части с конца к началу:

1С (Код)

ПроверкаТаб = ЭтотОбъект.ОсновнаяТаблица; ИндексСтроки = ПроверкаТаб.Количество() - 1; Пока ИндексСтроки >= 0 Цикл СтрокаТаблицы = ПроверкаТаб[ИндексСтроки]; Если СтрокаТаблицы.Задолжность = 0.01 Тогда ПроверкаТаб.Удалить(СтрокаТаблицы); КонецЕсли; ИндексСтроки = ИндексСтроки - 1; КонецЦикла;

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

ПроверкаТаб = ЭтотОбъект.ОсновнаяТаблица;   ИндексСтроки = ПроверкаТаб.Количество() - 1;   Пока ИндексСтроки >= 0 Цикл СтрокаТаблицы = ПроверкаТаб[ИндексСтроки]; Если СтрокаТаблицы.Задолжность = 0.01 Тогда ПроверкаТаб.Удалить(СтрокаТаблицы); КонецЕсли; ИндексСтроки = ИндексСтроки - 1; КонецЦикла;

Если у вас это реквизит формы, а не табличная часть объекта, обращение может быть таким:

1С (Код)

ПроверкаТаб = ОсновнаяТаблица;

1	ПроверкаТаб = ОсновнаяТаблица;

Полный вариант:

1С (Код)

ИндексСтроки = ОсновнаяТаблица.Количество() - 1; Пока ИндексСтроки >= 0 Цикл СтрокаТаблицы = ОсновнаяТаблица[ИндексСтроки]; Если СтрокаТаблицы.Задолжность = 0.01 Тогда ОсновнаяТаблица.Удалить(СтрокаТаблицы); КонецЕсли; ИндексСтроки = ИндексСтроки - 1; КонецЦикла;

1 2 3 4 5 6 7 8 9 10 11 12 13

ИндексСтроки = ОсновнаяТаблица.Количество() - 1;   Пока ИндексСтроки >= 0 Цикл СтрокаТаблицы = ОсновнаяТаблица[ИндексСтроки]; Если СтрокаТаблицы.Задолжность = 0.01 Тогда ОсновнаяТаблица.Удалить(СтрокаТаблицы); КонецЕсли; ИндексСтроки = ИндексСтроки - 1; КонецЦикла;

Удаление с конца безопасно: если строка удаляется, это не влияет на уже проверенные строки выше.

Можно удалить и по индексу:

1С (Код)

ПроверкаТаб.Удалить(ИндексСтроки);

1	ПроверкаТаб.Удалить(ИндексСтроки);

Но для табличной части обычно понятнее и надёжнее передавать саму строку:

1С (Код)

ПроверкаТаб.Удалить(СтрокаТаблицы);

1	ПроверкаТаб.Удалить(СтрокаТаблицы);

Ваш исходный код:

1С (Код)

Для Каждого СтрокаТЗЗ Из ОсновнаяТаблица Цикл Если СтрокаТЗЗ.Задолжность = 0.01 Тогда НомерСтроки = СтрокаТЗЗ.НомерСтроки; ПроверкаТаб = ЭтотОбъект.ОсновнаяТаблица; ПроверкаТаб.Удалить(НомерСтроки - 1); КонецЕсли; КонецЦикла;

1 2 3 4 5 6 7 8 9

Для Каждого СтрокаТЗЗ Из ОсновнаяТаблица Цикл Если СтрокаТЗЗ.Задолжность = 0.01 Тогда НомерСтроки = СтрокаТЗЗ.НомерСтроки; ПроверкаТаб = ЭтотОбъект.ОсновнаяТаблица; ПроверкаТаб.Удалить(НомерСтроки - 1); КонецЕсли; КонецЦикла;

лучше не использовать по двум причинам:

1. Строки удаляются во время перебора Для каждого.
2. Используется СтрокаТЗЗ.НомерСтроки, значение которого после удаления строк может уже не соответствовать текущему индексу табличной части.

Если Задолжность может содержать пустое значение, можно проверять так:

1С (Код)

Если Не ЗначениеЗаполнено(СтрокаТаблицы.Задолжность) ИЛИ СтрокаТаблицы.Задолжность = 0.01 Тогда ПроверкаТаб.Удалить(СтрокаТаблицы); КонецЕсли;

1 2 3 4 5 6

Если Не ЗначениеЗаполнено(СтрокаТаблицы.Задолжность) ИЛИ СтрокаТаблицы.Задолжность = 0.01 Тогда ПроверкаТаб.Удалить(СтрокаТаблицы); КонецЕсли;

Но для вашей задачи достаточно обратного цикла с условием Задолжность = 0.01.

[Автор]

Записи