Проблемы с деревом
Добавлено: 15 сен 2004, 15:36
Помогите пожалуйста,опыта работы с деревом совсем мало.
В интерфейсе только первая строчка выходит.
Подскажите, что не так?
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
Буду очень благодарна за ответы.
В интерфейсе только первая строчка выходит.
Подскажите, что не так?
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
Буду очень благодарна за ответы.