Переключение на Главную Страницу Страницы: 1 ОтправитьПечать
Обычная тема Дерево+Таблица (число прочтений - 2052 )
GwM
YaBB Newbies
*
Отсутствует


I Love YaBB 2!

Сообщений: 7
Зарегистрирован: 10. Июня 2008
Дерево+Таблица
10. Июня 2008 :: 14:54
Печать  
существует ли возможность управления "Дерево+Таблица"? иными словами, сформировали таблицу и программно развернули узлы до какого-то уровня? или до упора?
  
Наверх
 
IP записан
 
АЛьФ
FormEx developer
1c++ developer
Отсутствует



Сообщений: 1538
Местоположение: Санкт-Петербург
Зарегистрирован: 19. Мая 2006
Пол: Мужской
Re: Дерево+Таблица
Ответ #1 - 10. Июня 2008 :: 21:35
Печать  
Да.
  

FormEx developer
Наверх
www  
IP записан
 
GwM
YaBB Newbies
*
Отсутствует


I Love YaBB 2!

Сообщений: 7
Зарегистрирован: 10. Июня 2008
Re: Дерево+Таблица
Ответ #2 - 11. Июня 2008 :: 05:54
Печать  
Альф - ответ великолепен, но для чайника хотелось бы несколько более развернутую форму...
  
Наверх
 
IP записан
 
Salimbek
God Member
*****
Отсутствует



Сообщений: 862
Зарегистрирован: 06. Июня 2006
Пол: Мужской
Re: Дерево+Таблица
Ответ #3 - 11. Июня 2008 :: 06:52
Печать  
GwM писал(а) 11. Июня 2008 :: 05:54:
Альф - ответ великолепен, но для чайника хотелось бы несколько более развернутую форму...

1) Почитать справку
2) Использовать "РазвернутьУзел()"
  
Наверх
ICQ  
IP записан
 
Salimbek
God Member
*****
Отсутствует



Сообщений: 862
Зарегистрирован: 06. Июня 2006
Пол: Мужской
Re: Дерево+Таблица
Ответ #4 - 11. Июня 2008 :: 06:56
Печать  
Вот, не очень хорошоий, но действующий пример:
Код
Выбрать все
	атрДерево = СоздатьОбъект("АтрибутФормы");
	атрДерево.УстановитьАтрибут(Форма,"ктЭтапы");
	ТЗ = оМенеджер.СтруктураДомена("Док ""Ввод спецодежды""");
	ктЭтапы.Загрузить(ТЗ);
	атрДерево.ПерехватитьТаблицуЗначений();
	атрДерево.Видимость = 1;
	атрДерево.ЗначениеВДерево(1,4,НомерДок);
	атрДерево.ЗначениеВДерево(2,4,ДатаДок);
	Задача=3;
	атрДерево.УстановитьТекущийУзел(3);
	атрДерево.Доступность=0;
 

и
Код
Выбрать все
Процедура ОбработкаЗадачи(Код,Путь=0)
	Если Задача=3 Тогда
		ЗагрузитьДерево();
		Плюс=3;
		Задача=4;
		Узел = Строка(НомерСтроки+Плюс);
		атрДерево.ЗначениеВДерево(Узел+"/1",4,НомерСтроки);
		атрДерево.УстановитьТекущийУзел(Узел+"/2");
 

и т.д.
  
Наверх
ICQ  
IP записан
 
Переключение на Главную Страницу Страницы: 1
ОтправитьПечать