Процедура Сформировать()
//Создали ТЗ с 3 колонками
ТЗ1=СоздатьОбъект("ТаблицаЗначений");
ТЗ1.НоваяКолонка("_Строчка");
ТЗ1.НоваяКолонка("_Число");
ТЗ1.НоваяКолонка("_Дата");
ТЗ2=СоздатьОбъект("ТаблицаЗначений");
//ТЗ2 - туда скопировали структуру колонок
ТЗ1.Выгрузить(ТЗ2,,,);
//Заполним несколько данных в обе ТЗ
ТЗ1.НоваяСтрока();
ТЗ1._Строчка="привет";
ТЗ1._Число=5;
ТЗ1._Дата='01.01.1980' ;
ТЗ1.НоваяСтрока();
ТЗ1._Строчка="Здравствуй";
ТЗ1._Число=4;
ТЗ1._Дата='02.02.1988' ;
ТЗ1.ВыбратьСтроку(0,"Для отладки",);
//
ТЗ2.НоваяСтрока();
ТЗ2._Строчка="пока";
ТЗ2._Число=21;
ТЗ2._Дата='01.01.2000' ;
ТЗ2.НоваяСтрока();
ТЗ2._Строчка="Прощай";
ТЗ2._Число=14;
ТЗ2._Дата='02.02.2005' ;
ТЗ2.ВыбратьСтроку(0,"Для отладки",);
//!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Кстрок=ТЗ1.КоличествоСтрок();
Кстр2=ТЗ2.КоличествоСтрок()+1;
Для л=1 по Кстрок Цикл
ТЗ2.НоваяСтрока();
КонецЦикла;
ТЗ2.Заполнить(ТЗ1,Кстр2,,"_Строчка,_Число,_Дата");
ТЗ2.ВыбратьСтроку(0,"Для отладки",);
КонецПроцедуры |
