1С 8.3 Загрузка колонки в Таблицу значений
Данные > Примеры кода 1С > 1С 8.3 Таблица значений
Перейти в раздел примеры кода 1С 8.3:
Загрузка колоноки в Таблицу в 1С 8.3:
Процедура ЗагрузитьКолонкуТаблицы(ТаблицаЗЧ, ЗначенияТаблицы, Колонка, ОчищатьТаблицу = Истина) Экспорт
// ТаблицаЗЧ - ТаблицаЗначений, ТабличнаяЧасть
// ЗначенияТаблицы - Массив
// Колонка - Строка
// ОчищатьТаблицу - Булево - Необязательно. По-умолчанию Истина
Если ОчищатьТаблицу Тогда
ТаблицаЗЧ.Очистить();
КонецЕсли;
МаксИндексТаблицы = ТаблицаЗЧ.Количество() - 1;
МаксИндексМассива = ЗначенияТаблицы.Количество() - 1;
Для ИндексМассива = 0 По МаксИндексМассива Цикл
Если ИндексМассива > МаксИндексТаблицы Тогда
Строка = ТаблицаЗЧ.Добавить();
Иначе
Строка = ТаблицаЗЧ[ИндексМассива];
КонецЕсли;
Строка[Колонка] = ЗначенияТаблицы[ИндексМассива];
КонецЦикла;
КонецПроцедуры
// ТаблицаЗЧ - ТаблицаЗначений, ТабличнаяЧасть
// ЗначенияТаблицы - Массив
// Колонка - Строка
// ОчищатьТаблицу - Булево - Необязательно. По-умолчанию Истина
Если ОчищатьТаблицу Тогда
ТаблицаЗЧ.Очистить();
КонецЕсли;
МаксИндексТаблицы = ТаблицаЗЧ.Количество() - 1;
МаксИндексМассива = ЗначенияТаблицы.Количество() - 1;
Для ИндексМассива = 0 По МаксИндексМассива Цикл
Если ИндексМассива > МаксИндексТаблицы Тогда
Строка = ТаблицаЗЧ.Добавить();
Иначе
Строка = ТаблицаЗЧ[ИндексМассива];
КонецЕсли;
Строка[Колонка] = ЗначенияТаблицы[ИндексМассива];
КонецЦикла;
КонецПроцедуры
0
комментарии
____________________
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник