Pb d'Ajout un noeud fils dans une arborescence

Version imprimable

21/12/2004, 14h14
oramine

Pb d'Ajout un noeud fils dans une arborescence

bonjour ,
j'arrive pas a ajouté un noeud fils d'un noued parent dans un treeview (Arborescence); quelqu'un peut m'aider SVP
merci
21/12/2004, 14h17
orafrance

8O quelle appli ? Qu'avez vous fait ? quel est le message d'erreur ?

bonjour ,j'utilise forms 9i et je veut utiliser le type d'élément arborescence,
j'ai pue afficher un noeud parent avec ce code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
DECLARE
htree ITEM;
top_node FTREE.NODE;
new_node FTREE.NODE;
find_node Ftree.NODE;
item_value VARCHAR2(30);
BEGIN
-- Find the tree itself.
htree := Find_Item('tree_block.htree3');
-- Copy the item value to a local variable.
item_value := 'Gestion des Stock';--:wizard_block.new_node_data;
-- Add an expanded top level node to the tree
-- with no icon.
new_node := Ftree.Add_Tree_Node(htree,Ftree.ROOT_NODE,Ftree.PARENT_OFFSET,Ftree.LAST_CHILD,Ftree.EXPANDED_NODE,item_value,NULL,item_value);
find_node := Ftree.Find_Tree_Node(htree, 'Gestion des Stock',Ftree.FIND_NEXT,Ftree.NODE_LABEL, Ftree.ROOT_NODE,Ftree.ROOT_NODE);
IF NOT Ftree.ID_NULL(find_node) then
item_value := 'Liste Nominatif des Articles';
 
 
new_node := Ftree.Add_Tree_Node(htree,find_node,Ftree.SIBLING_OFFSET,Ftree.LAST_CHILD,Ftree.COLLAPSED_NODE,item_value,NULL,item_value);
END IF;
 
 
END;

mais le dexieme noeud je le veut comme fils du premier donc:
j'arrive pas a ajouté un noeud fils d'un noued parent dans treeview (Arborescence);

bonjour!
esseyer pluto ce code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
DECLARE 
htree ITEM; 
top_node FTREE.NODE; 
new_node FTREE.NODE; 
find_node Ftree.NODE; 
item_value VARCHAR2(30); 
BEGIN 
-- Find the tree itself. 
htree := Find_Item('tree_block.htree3'); 
-- Copy the item value to a local variable. 
item_value := 'Gestion des Stock';--:wizard_block.new_node_data; 
-- Add an expanded top level node to the tree 
-- with no icon. 
new_node := Ftree.Add_Tree_Node(htree,Ftree.ROOT_NODE,Ftree.PARENT_OFFSET,Ftree.LAST_CHILD,Ftree.EXPANDED_NODE,item_value,NULL,item_value); 
find_node := Ftree.Find_Tree_Node(htree, 'Gestion des Stock',Ftree.FIND_NEXT,Ftree.NODE_LABEL, Ftree.ROOT_NODE,Ftree.ROOT_NODE); 
IF NOT Ftree.ID_NULL(find_node) then 
item_value := 'Liste Nominatif des Articles'; 
 
 
new_node := Ftree.Add_Tree_Node(htree,find_node,Ftree.PARENT_OFFSET,Ftree.LAST_CHILD,Ftree.COLLAPSED_NODE,item_value,NULL,item_value); 
END IF; 
 
 
END;

j'ai juste changer ftree.SIBLING_OFFSET par ftree.PARENT_OFFSET
dans la procedure Ftree.Add_Tree_Node

bon courage :wink:

21/12/2004, 15h10
oramine

merci , maintenant ca marche :lol:
21/12/2004, 15h39
Orameur

Citation:

Envoyé par oramine

merci , maintenant ca marche :lol:

de rien mon ami