filmov
tv
1С Динамические колонки в табличной часте на форме

Показать описание
ЭлементыФормы.ТабличноеПоле1.Значение.Очистить();
ЭлементыФормы.ТабличноеПоле1.Значение.Колонки.Очистить();
ЭлементыФормы.ТабличноеПоле1.Колонки.Очистить();
ТЗ = Новый ТаблицаЗначений;
ТекДата = НачПериода;
Пока Не ТекДата = НачалоДня((КонПериода + 86400)) цикл
НК = ТЗ.Колонки.Добавить("Дата" + Строка(Формат(ТекДата,"Л=ru_RU; ДФ='ггггММдд'")));
НК.Заголовок = Формат(ТекДата,"Л=ru_RU; ДФ='дд.ММ.гг'");
ТекДата = ТекДата + 86400;
КонецЦикла;
ЭлементыФормы.ТабличноеПоле1.Значение = ТЗ;
ЭлементыФормы.ТабличноеПоле1.СоздатьКолонки();
ЭлементыФормы.ТабличноеПоле1.Значение.Колонки.Очистить();
ЭлементыФормы.ТабличноеПоле1.Колонки.Очистить();
ТЗ = Новый ТаблицаЗначений;
ТекДата = НачПериода;
Пока Не ТекДата = НачалоДня((КонПериода + 86400)) цикл
НК = ТЗ.Колонки.Добавить("Дата" + Строка(Формат(ТекДата,"Л=ru_RU; ДФ='ггггММдд'")));
НК.Заголовок = Формат(ТекДата,"Л=ru_RU; ДФ='дд.ММ.гг'");
ТекДата = ТекДата + 86400;
КонецЦикла;
ЭлементыФормы.ТабличноеПоле1.Значение = ТЗ;
ЭлементыФормы.ТабличноеПоле1.СоздатьКолонки();