Помогите переделать обычную форму на управляемую

Question

Помогите переделать обычную форму на управляемую

код в модуле формы:
[1C-CODE]Процедура СфорОстат(Элемент)
    ВременнаяТаблица1=ИзТКС();
    ЭлементыФормы.ВременнаяТаблица1.СоздатьКолонки();
КонецПроцедуры[/1C-CODE]

В модуле Объекта:

[1C-CODE]Функция ИзТКС() экспорт
    ПодключБаза();    

    НаборЗаписей = Новый ComObject("ADODB.RecordSet");
Попытка  

    Организ="""МОРИОН""";
    Команда = Новый COMОбъект("ADODB.Command");
Команда.CommandTimeout = 600;
    Команда.ActiveConnection = Connection;
Команда.CommandText ="SEL ECT ComponentName as component,Sum(Quantity) Количество FR OM mydata_common_db.mydbcarrview_10.carrier_magname

| GROUP BY ComponentName order by ComponentName";

    
    НаборЗаписей = Команда.Execute();    
    //Состояние("Данные получены.");
Исключение    
    Сообщить("Нет данных.");    
    //Возврат 0;
КонецПопытки;

ВременнаяТаблица = Новый ТаблицаЗначений;

//Добавление колонок во временную таблицу
Для НомерСтолбца = 0 По НаборЗаписей.Fields.Count - 1 Цикл   
    ИмяСтолбца = НаборЗаписей.Fields.Item(НомерСтолбца).Name;                
    ВременнаяТаблица.Колонки.Добавить(ИмяСтолбца);
КонецЦикла;

Пока НЕ НаборЗаписей.EOF Цикл
    
    НоваяСтрока = ВременнаяТаблица.Добавить();                
    Для НомерСтолбца = 0 По НаборЗаписей.Fields.Count-1 Цикл   
    Попытка  
          
        НоваяСтрока.Установить(НомерСтолбца, СокрЛП(НаборЗаписей.Fields(НомерСтолбца).Value));  
        Исключение    
    Сообщить("Нет данных.");    

КонецПопытки;

     КонецЦикла;                

    НаборЗаписей.MoveNext();

КонецЦикла;

Возврат ВременнаяТаблица;

КонецФункции    
[/1C-CODE]

Пожалуйста помогите!!! третий день ломаю голову(

Accepted Answer

(3) 
ИмяТаблицы - имя добавляемой таблицы
Добавление реквизитов на форму(сначала таблицу, потом колонку для этой таблицы)
[CODE]
МассивРеквизитов = Новый Массив;
МассивРеквизитов.Добавить(Новый РеквизитФормы(ИмяТаблицы, Новый ОписаниеТипов("ТаблицаЗначений")));
МассивРеквизитов.Добавить(Новый РеквизитФормы("НомерСтрокиXLS", Новый ОписаниеТипов("Число"), ИмяТаблицы));
ИзменитьРеквизиты(МассивРеквизитов);[/CODE]
Вывод  реквизитов на форму
[CODE]
ТаблицаФормы = Элементы.Добавить(ИмяТаблицы, Тип("ТаблицаФормы"), Элементы.РасшифрованныеДанные);
ТаблицаФормы.ПутьКДанным = ИмяТаблицы;
	
НовыйЭлемент = Элементы.Добавить("НомерСтрокиXLS", Тип("ПолеФормы"), ТаблицаФормы);
НовыйЭлемент.Вид = ВидПоляФормы.ПолеТабличногоДокумента;
НовыйЭлемент.ПутьКДанным = ИмяТаблицы + ".НомерСтрокиXLS";
НовыйЭлемент.ЦветФона = WebЦвета.БледноБирюзовый;
[/CODE]
Элементы.РасшифрованныеДанные - группа на форме, в которую добавляется таблица