Имя: Пароль:
1C
1С v8
Добавить колонку в ТабЗначений на управляемой форме
0 dimonderman
 
20.09.13
19:05
Хочу программно добавлять колонки и строки в таблицу значений на управляемой форме...Пишу код, выдает ошибку что колонки не обнаружено, помогите пожалуйста.

&НаКлиенте
Процедура СформироватьЛист(Команда)    
    
    Для каждого культура из _СписокКультур    Цикл
        
        Если культура.Пометка Тогда
        Ходка1.Колонки.Добавить(культура);    
        
             Для каждого квартал из _Списоккварталов    Цикл
        
        Если квартал .Пометка Тогда
        Строка = Ходка1.культура.Добавить();    
            
    КонецЕсли;    
    КонецЕсли;        
    КонецЦикла;    
    
КонецПроцедуры
1 Asmody
 
20.09.13
19:09
(0) На клиенте таблиц значений не существует.
См.  внимательно ИзменитьРеквизиты()
2 dimonderman
 
20.09.13
19:15
Я на форме добавил Реквизит ТабЗнач, и Реквиз.  Колонка ТабЗнач, как мне програмно добавить еще 1 колонку ??Объясните как для ЧАЙНИКА!

Процедура СформироватьЛист(Команда)    
    
Процедура СформироватьСервер();    
    
КонецПроцедуры

Процедура СформироватьСервер()
   Для каждого культура из _СписокКультур    Цикл
        
        Если культура.Пометка Тогда
        Ходка1.Колонки.Добавить(культура);    
        
             Для каждого квартал из _Списоккварталов    Цикл
        
        Если квартал .Пометка Тогда
        Строка = Ходка1.культура.Добавить();    
            
    КонецЕсли;    
    КонецЕсли;        
    КонецЦикла;
КонецПроцедуры
3 dimonderman
 
20.09.13
19:27
Нашел норм обьяснение, может комуто понадобится



МассивДобавляемыхРеквизитов = Новый Массив;
МассивДобавляемыхРеквизитов.Добавить(Новый РеквизитФормы("План", Новый ОписаниеТипов("ТаблицаЗначений")));     
МассивДобавляемыхРеквизитов.Добавить(Новый РеквизитФормы("Номенклатура", Новый ОписаниеТипов("СправочникСсылка.Номенклатура"),"План" ,"Номенклатура"));
МассивДобавляемыхРеквизитов.Добавить(Новый РеквизитФормы("Регион", Новый ОписаниеТипов("Число",Новый КвалификаторыЧисла(10,2)),"План" , "Регион"));
МассивДобавляемыхРеквизитов.Добавить(Новый РеквизитФормы("Разница", Новый ОписаниеТипов("Число",Новый КвалификаторыЧисла(10,2)),"План" , "Осталось распределить"));
ИзменитьРеквизиты(МассивДобавляемыхРеквизитов);     
ТаблицаФормы = Элементы.Добавить("План", Тип("ТаблицаФормы"));
ТаблицаФормы.ПутьКДанным = "План";
ТаблицаФормы.ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиЭлементаФормы.Нет;
ТаблицаФормы.ФиксацияСлева = 3;
ТаблицаФормы.УстановитьДействие("ПередУдалением", "ПланПередУдалением");
ТаблицаФормы.УстановитьДействие("ПередНачаломДобавления", "ПланПередНачаломДобавления");     
НоваяКолонка = Элементы.Добавить("ПланНоменклатура", Тип("ПолеФормы"), Элементы.План);
НоваяКолонка.Заголовок = "Номенклатура";
НоваяКолонка.ПутьКДанным = "План.Номенклатура";
НоваяКолонка.Вид = ВидПоляФормы.ПолеВвода;
НоваяКолонка.РежимРедактирования = РежимРедактированияКолонки.ВходПриВводе;     
НоваяКолонка = Элементы.Добавить("ПланРегион", Тип("ПолеФормы"), Элементы.План);
НоваяКолонка.Заголовок = "Регион";
НоваяКолонка.ПутьКДанным = "План.Регион";
НоваяКолонка.Вид = ВидПоляФормы.ПолеВвода;
НоваяКолонка.РежимРедактирования = РежимРедактированияКолонки.ВходПриВводе;
4 banco
 
20.09.13
19:28
(0)
ДобавляемыеКолонки = Новый Массив;
ДобавляемыеКолонки.Добавить(Новый РеквизитФормы(<Имя>, <Тип>, <Путь>, <Заголовок>, <СохраняемыеДанные>) );
ИзменитьРеквизиты(ДобавляемыеКолонки) ;
AdBlock убивает бесплатный контент. 1Сергей