+ как это сделать в самом классе?
В классе пишу:

Процедура СоздатьКолонку(идКолонки) Экспорт
		НоваяКолонка=Сам().Колонки.Добавить(идКолонки);
		НоваяКолонка.Заголовок=идКолонки;
		НоваяКолонка.Данные=идКолонки;
КонеуПроцедуры 

та же самая ошибка...

Нет, не объявлено.
я так понял, что надо чуть подправить процедуру в классе:

Процедура Создать(идЭлементаНаформе) Экспорт
	тп = Сам().СоздатьЭлементУправленияНаФорме(Сам().ПолучитьКонтекстОкружения().Форма, "ТабличноеПоле", идЭлементаНаформе);
КонецПроцедуры// Создать 

+ создать переменную класса "тп", а от неё уже плясать: тп.Колонки.Добавить(имяКолонки);
Но что-то мне кажется, что это не есть гуд и вообще это не правильно.

Arta писал(а) 18. Апреля 2008 :: 09:23:

Почему? И это ладно, пол беды.

Ладно, понял. А по теме кто-нибудь выскажется? 

JohnyDeath писал(а) 18. Апреля 2008 :: 08:39:

Наследование - это отношение типа "является". Мне лично сложно представить объект, который одновременно является и формой и табличным полем на форме и запросом.
Скорее тут подходит взяимоотношения типа "входит в состав". Табличное поле входит в состав формы. А запрос входит в состав табличного поля.
Я к тому, что тут скорее нужно применять не наследование, а агрегирование.

А в результате применения наследования - конструкция получается слишком сложной для понимания. Вот и ты в результате не можешь понять, что там у тебя происходит, и нам не можешь передать информацию в количестве, достаточном для того, чтобы мы поняли, что же у тебя там происходит.

Цитата:

По теме... Проще надо быть. Не пытаться нагромоздить сразу и немедлено суперсложную конструкцию из наследующихся друг от друга классов. Любой рефакторинг должен приводить к облегчению понимания человеком текста программы, а не к усложнению.

fez писал(а) 18. Апреля 2008 :: 10:42:

+1 По всем пунктам.

Немного переделал класс. Теперь он наследник только ТП:

Перем _БазаТП;
Перем _Конт;
Перем БД,Запрос;
//--------------------------------------------
Функция Выполнить(ТекстЗапроса, флОтладка=0) Экспорт
	Запрос.Отладка(флОтладка);
	Возврат Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
КонецФункции	// Выполнить

Функция ВыполнитьИОтобразить(ТекстЗапроса, флОтладка=0) Экспорт
	тзИсточник=Сам().Выполнить(ТекстЗапроса, флОтладка);
	Сам().ПоставщикДанных = "";
	НоваяКолонка=Сам().Колонки.Добавить("Первая");
	//Сам().СоздатьКолонкиПоИсточнику(тзИсточник,1,1);
	Поставщик=СоздатьОбъект("ПоставщикДанныхТЗ");
	Поставщик.УстТаблицуЗначений(тзИсточник);
	Сам().ПоставщикДанных = Поставщик;

	//Сам().ОбновитьСтроки();
	Возврат тзИсточник;
КонецФункции// ВыполнитьИОтобразить
//--------------------------------------------
Процедура УстановитьТекстовыйПараметр(идПараметра,Параметр) Экспорт
	Запрос.УстановитьТекстовыйПараметр(идПараметра,Параметр);
КонецПроцедуры	// УстановитьТекстовыйПараметр
//--------------------------------------------
Процедура Создать(идЭлементаНаформе, КонтФормы) Экспорт
	БД=СоздатьОбъект("OLEDBData");
	СтрокаСоединения="Provider=VFPOLEDB.1;Deleted=Yes;Data Source="+КаталогИБ()+";Mode=ReadWrite;Collating Sequence=Machine";
	Рез=БД.Соединение(СтрокаСоединения);
	Запрос=БД.СоздатьКоманду();

	_Конт=КонтФормы;
	Форма=СоздатьОбъект("Форма");
	тпНаФорме=Форма.СоздатьЭлементУправленияНаФорме(_Конт.Форма, "ТабличноеПоле", идЭлементаНаформе);
КонецПроцедуры// Создать 

Ошибки те же и там же...