Pb d'Ajout un noeud fils dans une arborescence

**oramine** · 21/12/2004, 14h14

bonjour ,
j'arrive pas a ajouté un noeud fils d'un noued parent dans un treeview (Arborescence); quelqu'un peut m'aider SVP
merci

**orafrance** · 21/12/2004, 14h17

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

**oramine** · 21/12/2004, 14h28

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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&#40;30&#41;;
BEGIN
-- Find the tree itself.
htree &#58;= Find_Item&#40;'tree_block.htree3'&#41;;
-- Copy the item value to a local variable.
item_value &#58;= 'Gestion des Stock';--&#58;wizard_block.new_node_data;
-- Add an expanded top level node to the tree
-- with no icon.
new_node &#58;= Ftree.Add_Tree_Node&#40;htree,Ftree.ROOT_NODE,Ftree.PARENT_OFFSET,Ftree.LAST_CHILD,Ftree.EXPANDED_NODE,item_value,NULL,item_value&#41;;
find_node &#58;= Ftree.Find_Tree_Node&#40;htree, 'Gestion des Stock',Ftree.FIND_NEXT,Ftree.NODE_LABEL, Ftree.ROOT_NODE,Ftree.ROOT_NODE&#41;;
IF NOT Ftree.ID_NULL&#40;find_node&#41; then
item_value &#58;= 'Liste Nominatif des Articles';
 
 
new_node &#58;= Ftree.Add_Tree_Node&#40;htree,find_node,Ftree.SIBLING_OFFSET,Ftree.LAST_CHILD,Ftree.COLLAPSED_NODE,item_value,NULL,item_value&#41;;
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);

**Orameur** · 21/12/2004, 15h03

bonjour!
esseyer pluto ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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&#40;30&#41;; 
BEGIN 
-- Find the tree itself. 
htree &#58;= Find_Item&#40;'tree_block.htree3'&#41;; 
-- Copy the item value to a local variable. 
item_value &#58;= 'Gestion des Stock';--&#58;wizard_block.new_node_data; 
-- Add an expanded top level node to the tree 
-- with no icon. 
new_node &#58;= Ftree.Add_Tree_Node&#40;htree,Ftree.ROOT_NODE,Ftree.PARENT_OFFSET,Ftree.LAST_CHILD,Ftree.EXPANDED_NODE,item_value,NULL,item_value&#41;; 
find_node &#58;= Ftree.Find_Tree_Node&#40;htree, 'Gestion des Stock',Ftree.FIND_NEXT,Ftree.NODE_LABEL, Ftree.ROOT_NODE,Ftree.ROOT_NODE&#41;; 
IF NOT Ftree.ID_NULL&#40;find_node&#41; then 
item_value &#58;= 'Liste Nominatif des Articles'; 
 
 
new_node &#58;= Ftree.Add_Tree_Node&#40;htree,find_node,Ftree.PARENT_OFFSET,Ftree.LAST_CHILD,Ftree.COLLAPSED_NODE,item_value,NULL,item_value&#41;; 
END IF; 
 
 
END;