получаю таблицу значений в которой необходимо удалить колонки за их ненадобностью так как в них нет числовой информации, допустим в таблице 25 колонок и нужно удалить все после 5й (1-5 не числовые) или только 17ю и 22....
|
у меня не получается
|
Для каждого Колонка Из ТабСотрОрг.Колонки Цикл
   Если ТабСотрОрг.Итог(Колонка) = 0 Тогда
       Инд = ТабСотрОрг.Колонки.Индекс(Колонка);
       ТабСотрОрг.Колонки.Удалить(ТабСотрОрг.Колонки.Индекс(Колонка));
       ТабСотрОрг.Колонки.Сдвинуть(Инд + 1,1);
   КонецЕсли;
КонецЦикла;

блин, ну это ж децкий сад... целых два варианта:
1. идти по колонкам задом наперед
2. сначала пройти по всем колонкам и собрать в массив не нужные, а потом в цикле по этому массиву поудалять колонки
.......  Стаж: 4 г. 2 мес.

ТЗ2=ТЗ1.СкопироватьКолонки("Раз,Два")

+ 2 Лёвыч

Стаж: 5 г. 4 мес.  
:)

ТабСотрОрг.Колонки.Удалить(Колонка.Имя)

(3) СкопироватьКолонки() возвращает пустую таблицу (без строк)

(3) про ваше изображение вообще молчу.....

(5)Беру свои слова назад и посыпаю голову пеплом:))

(6)Разрешаю молчать и не больше смотреть:))

(4) и реально по имени удалить колонки по очереди или в разноброс, и все Ок?

(9) правильный ответ в (1). Ин факт, их там два даже

(4) не не удаляет, то же что и с индексом...
в обратном порядке будет правельнее удаление...

(10) в обратном порядке затрудняюсь....
попробую через массив!!!

о, у меня чай кончился! пойду заварю свежего!

заварил, приступаю к работе!

работаю!

устал

пробую!
|
// Исключить пустые колонки в таблице для вывода
НаУдаление = Новый Массив;
Для каждого Колонка Из ТабСотрОрг.Колонки Цикл
   Если ТабСотрОрг.Итог(Колонка) = 0 Тогда
       НаУдаление.Добавить(ТабСотрОрг.Колонки.Индекс(Колонка));        
   КонецЕсли;
КонецЦикла;
Для каждого СтрМас Из НаУдаление Цикл
   ТабСотрОрг.Колонки.Удалить(СтрМас);
КонецЦикла;

мне во всех случаях получалось удалять только первую числовую колонку (((

// Исключить пустые колонки в таблице для вывода
НаУдаление = Новый Массив;
Для каждого Колонка Из ТабСотрОрг.Колонки Цикл
   Если ТабСотрОрг.Итог(Колонка) = 0 Тогда
       //НаУдаление.Добавить(ТабСотрОрг.Колонки.Индекс(Колонка));        
       НаУдаление.Добавить(Колонка);
   КонецЕсли;
КонецЦикла;
Для каждого СтрМас Из НаУдаление Цикл
   ТабСотрОрг.Колонки.Удалить(СтрМас);
КонецЦикла;

(17) ты думай ПЕРЕД тем, как делать, а не ВО ВРЕМЯ:

НаУдаление = Новый Массив;
Для каждого Колонка Из ТабСотрОрг.Колонки Цикл
   Если ТабСотрОрг.Итог(Колонка) = 0 Тогда
       НаУдаление.Добавить(Колонка);        
   КонецЕсли;
КонецЦикла;
Для каждого СтрМас Из НаУдаление Цикл
   ТабСотрОрг.Колонки.Удалить(СтрМас);
КонецЦикла;

и с условием "Если ТабСотрОрг.Итог(Колонка) = 0 Тогда" надо что-то делать - оно сделано из уныния и отчаяния