Переключение на Главную Страницу Страницы: 1 ОтправитьПечать
Обычная тема Простая таблица в отчете! (число прочтений - 1133 )
admin spb
Full Member
***
Отсутствует


I Love YaBB 2!

Сообщений: 150
Зарегистрирован: 26. Апреля 2007
Пол: Мужской
Простая таблица в отчете!
09. Февраля 2009 :: 13:59
Печать  
Есть ТаблицаЗначений. В ней много строк и много колонок.
Надо перенести все это в отчет. Количество строк и колонок не ограничено.

Подскажите примером как это сделать??

Я делаю так: - в резултате полная ерудна...

Для кол = 1 По ТабОтчет.КоличествоКолонок()  Цикл
ТабОтчет.ПолучитьПараметрыКолонки(кол,,,,ЗаголовокКолонки);
Таб.ВывестиСекцию("Колонка");
Для Ном = 1 По ТабОтчет.КоличествоСтрок()  Цикл
ТабОтчет.ПолучитьСтрокуПоНомеру(ном);
ЗначениеЯчейки = ТабОтчет.ПолучитьЗначение(ном,кол);
Таб.ПрисоединитьСекцию("Строка|Колонка");;
КонецЦикла;      
КонецЦикла;                  

Подскажите что я делаю не правильно...
  
Наверх
 
IP записан
 
Djelf
God Member
*****
Отсутствует


Ubuntu + wine@etersoft
+ 1C 7.7

Сообщений: 634
Местоположение: Питер
Зарегистрирован: 02. Ноября 2007
Пол: Мужской
Re: Простая таблица в отчете!
Ответ #1 - 09. Февраля 2009 :: 16:55
Печать  
Зачем так мучиться?  Подмигивание
Если тз плоская - простейший метод ее вывода это перегрузка в Йоксель

Код
Выбрать все
	ЗагрузитьВнешнююКомпоненту("SpreadSheet.dll");
	ТабДок=СоздатьОбъект("ТабличныйДокумент");
	// заголовки
	Заголовок="";
	Для Кол=1 По КолВоКол Цикл
		тз.ПолучитьПараметрыКолонки(Кол,,,,Заголовок);
		ТабДок.Область(1,Кол).Текст=Заголовок;
	КонецЦикла;
	ТабДок.Область(1).Полужирный=1;

	// данные
	Для Кол=1 По КолВоКол Цикл
		Для Стр=1 По КолВоСтр Цикл
			ТабДок.Область(Стр+1,Кол).Текст=тз.ПолучитьЗначение(Стр,Кол);
		КонецЦикла;
	КонецЦикла;
	ТабДок.Область().АвтоподборШириныКолонки();
	ТабДок.Показать("ТабличныйДокумент");
 



И быстрее и автоформат по ширине в комплекте...
  
Наверх
www  
IP записан
 
Переключение на Главную Страницу Страницы: 1
ОтправитьПечать