Проблемы с деревом

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
Isaeva
Сообщения: 5
Зарегистрирован: 29 мар 2005, 17:49
Контактная информация:

Проблемы с деревом

Сообщение Isaeva »

Помогите пожалуйста,опыта работы с деревом совсем мало.
В интерфейсе только первая строчка выходит.
Подскажите, что не так?

create view
var
nnrec:comp
curOwner : word
as select *
from
KatKau
, SpKau
where
((
KatKau.Nrec == SpKau.cMain
and curOwner == SpKau.cNode
and word(137) == KatKau.kodGroup

))
order by SpKau.Code;

parameters nnrec

tree br1 '' ;
table SpKau;
fields
SpKau.Code ' Полный код ';
SpKau.Name ' Наименование КАУ ';
end; //End Browse

handleEvent
cmDefault :
{
nnrec:=spkau.nrec;
}
cmTreeTop : { curOwner := 0; }
cmTreeDown : { curOwner := spkau.nrec;}
cmTreeUp : { curOwner := spkau.cnode; }
cmTreeNodeType : {
if (SpKau.cNode<>0) then
TreeSetNodeType (br1,ntfText);
else TreeSetNodeType (br1,ntfOpen);
}
cmInit:
{
curOwner := 0;
}
end

Буду очень благодарна за ответы.
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5188
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Re: Проблемы с деревом

Сообщение edward_K »

В from
,spkau spkaui
в where
spkau.nrec == spkaui.cnode

события переписать типа того
cmTreeNodeType :
{ if GetFirst SpkauI<>tsOk
TreeSetNodeType( br1, 2); // это чтобы если не было подчинения показать без папочки
}

cmTreeNeedOwner :
{
if spkuau.cnode <> 0
TreeJumpToRecord( br1, spkau.cnode)
else
TreeJumpToRecord( br1, 0);
}
интересно как у вас показывается эта первая запись - как папочка или техт?
Isaeva
Сообщения: 5
Зарегистрирован: 29 мар 2005, 17:49
Контактная информация:

Re: Проблемы с деревом

Сообщение Isaeva »

Спасибо за ответ. С одной записью я уже справилась, убрала order by. Показывалась она как папка.
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5188
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Re: Проблемы с деревом

Сообщение edward_K »

да сортировка нужна как cnode+code
Isaeva
Сообщения: 5
Зарегистрирован: 29 мар 2005, 17:49
Контактная информация:

Re: Проблемы с деревом

Сообщение Isaeva »

У меня все получилось.
Большое спасибо, Edward_K :D
Ответить