Страница 1 из 1

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

Добавлено: 15 сен 2004, 15:36
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

Буду очень благодарна за ответы.

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

Добавлено: 16 сен 2004, 11:20
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);
}
интересно как у вас показывается эта первая запись - как папочка или техт?

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

Добавлено: 16 сен 2004, 12:08
Isaeva
Спасибо за ответ. С одной записью я уже справилась, убрала order by. Показывалась она как папка.

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

Добавлено: 16 сен 2004, 15:02
edward_K
да сортировка нужна как cnode+code

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

Добавлено: 16 сен 2004, 15:34
Isaeva
У меня все получилось.
Большое спасибо, Edward_K :D