Имя: Пароль:
1C
1С v8
Программно добавляю колонки, но не получается задавать значения в эти колонки?
0 байт
 
20.02.12
08:16
Здравствуйте, коллеги, хотел бы узнать что сделать для того чтобы не только видеть колонки ТЗ, но и редактировать цифры в них?    
Пока Выборка.Следующий() Цикл
       ИмяКолонки = СтрЗаменить(Выборка.Наименование," ","_");
       Попытка
           ТаблицаЦен.Колонки.Добавить(ИмяКолонки,ОписаниеТиповЧисло);
           ЭлементыФормы.ТаблицаЦен.Колонки.ИмяКолонки.Видимость = Истина;//Добавить(ИмяКолонки,ОписаниеТиповЧисло);
       Исключение
           Сообщить(ОписаниеОшибки());
       конецПопытки;
   КонецЦикла;
1 Wobland
 
20.02.12
08:22
доступности не хватает?
2 байт
 
20.02.12
08:31
я не тот код кинул, здесь он у меня ругается "Поле объекта не обнаружено (ИмяКолонки)", а сама ТЗначений формируется.
3 kosts
 
20.02.12
08:34
(0)

ТабличноеПоле2.Колонки.Добавить("Флажок", Новый ОписаниеТипов("Булево"));
Колонка = ЭлементыФормы.ТабличноеПоле2.Колонки.Вставить(0, "Флажок");
Колонка.Имя = "Флажок";
Колонка.Ширина = 3;
Колонка.Данные = "";
Колонка.ДанныеФлажка = "Флажок";
Колонка.ИзменятьПозицию = Ложь;
Колонка.ИзменениеРазмера = ИзменениеРазмераКолонки.НеИзменять;
Колонка.ИзменятьВидимость = Ложь;
Колонка.ИзменятьНастройку = Ложь;
Колонка.РежимРедактирования =  РежимРедактированияКолонки.Непосредственно;
4 байт
 
20.02.12
08:34
было так, но при этом вообще одно и то же значение во все строки ставил и его еще не видно было


   Пока Выборка.Следующий() Цикл
       ИмяКолонки = СтрЗаменить(Выборка.Наименование," ","_");
       Попытка
           ЭлементыФормы.ТаблицаЦен.Колонки.Добавить(ИмяКолонки,ОписаниеТиповЧисло);
       Исключение
           Сообщить(ОписаниеОшибки());
       конецПопытки;
   КонецЦикла;
5 Мимохожий Однако
 
20.02.12
08:38
(4)Так ты же при каждом проходе добавляешь колонку...А надо устанавливать значение.
6 байт
 
20.02.12
08:41
(5) пример можешь продемострировать?
7 байт
 
20.02.12
08:58
У меня следующая задача: строки ТПоля Заполняются группами номенклатуры в зависимости от иерархии и динамически прибавляются либо уменьшаются колонки ТипЦен, вроде как колонки создал, но напротив какой-либо группы значения редактировать могу, но оно становится общим для всех строк в чем может быть засада?
8 kosts
 
20.02.12
09:05
(7) Скорее всего не заполнен реквизит "Данные"
9 байт
 
20.02.12
09:30
(8) а как ее проставить для числа?
10 kosts
 
20.02.12
09:32
(9)
Типа так как то

ТабличноеПоле2.Колонки.Добавить("Моечисло", Новый ОписаниеТипов("Число"));
Колонка = ЭлементыФормы.ТабличноеПоле2.Колонки.Вставить(0, "Колонка 1");
Колонка.Имя = "Моечисло";
Колонка.Данные = "Моечисло";
11 sound
 
20.02.12
09:40
Может натолкнет на мысль, тут для строки:

ЭлементыФормы.СправочникСписок.Колонки.Добавить("ИмяКолонки");
ЭлементыФормы.СправочникСписок.Колонки.ИмяКолонки.УстановитьЭлементУправления(Тип("ПолеВвода"));
ЭлементыФормы.СправочникСписок.Колонки.ИмяКолонки.ЭлементУправления.ТипЗначения = Новый ОписаниеТипов("Строка",,Новый КвалификаторыСтроки(0));
12 байт
 
20.02.12
10:02
всем спасибо сделал так все работает:


   Пока Выборка.Следующий() Цикл
       ИмяКолонки = СтрЗаменить(Выборка.Наименование," ","_");
       Попытка
           //ТаблицаЦен.Колонки.Добавить(ИмяКолонки,ОписаниеТиповЧисло);
           //ЭлементыФормы.ТаблицаЦен.Колонки.ИмяКолонки.Видимость = Истина;//Добавить(ИмяКолонки,ОписаниеТиповЧисло);
           //ЭлементыФормы.ТаблицаЦен.Колонки.ИмяКолонки.Доступность = Истина;//Добавить(ИмяКолонки,ОписаниеТиповЧисло);
           //ЭлементыФормы.ТаблицаЦен.Колонки.Добавить(ИмяКолонки,ОписаниеТиповЧисло);
           ТаблицаЦен.Колонки.Добавить(ИмяКолонки,ОписаниеТиповЧисло);
           Колонка = ЭлементыФормы.ТаблицаЦен.Колонки.Вставить(2, ИмяКолонки);
           Колонка.Имя = ИмяКолонки;
           Колонка.Ширина = 10;
           Колонка.Данные = ИмяКолонки;
           Колонка.Доступность = Истина;
           Колонка.Видимость = Истина;
           Колонка.УстановитьЭлементУправления(Тип("ПолеВвода"));
           //Колонка.ИзменятьПозицию = Ложь;
           Колонка.ИзменениеРазмера = ИзменениеРазмераКолонки.НеИзменять;
           //Колонка.ИзменятьВидимость = Ложь;
           //Колонка.ИзменятьНастройку = Ложь;
           Колонка.РежимРедактирования =  РежимРедактированияКолонки.Непосредственно;        
       Исключение
           Сообщить(ОписаниеОшибки());
       конецПопытки;
   КонецЦикла;
13 байт
 
20.02.12
10:04
+(12) ну еще немного шлифануть, а так работает)))