Le but du code est de sélectionner les nœud d'un arbre qui comporte la même donnée. Le parcours débute de la racine en passant par tous les nœuds et feuilles .
Après avoir organisé l'arbre, ajoutez un composant d’édition nommé :NODE et un bouton sur lequel on crée un trigger qui comporte le code comme suite:
@@@@@@@@@@@@@@
Declare
htree ITEM;
Node_LBL Ftree.NODE;
NODE number:=0;
Begin
htree := FIND_ITEM('BL_TREE.MENU');
Node_LBL:=0;
loop
begin
Node_LBL := FTREE.FIND_TREE_NODE (htree,:NODE, FTREE.FIND_NEXT,Ftree.NODE_LABEL,Ftree.ROOT_NODE,NODE);
exception
when others then
exit;
end;
exit when Node_LBL=0 or :NODE is null;
NODE:=Node_LBL+1;
...
Voir la suite 