Add Node to my Tree

Question

hi all
i have a self join table with following column as select statement
SELECT 1, LEVEL, a.product, ''exit'',a.techno
FROM bom_products a
CONNECT BY PRIOR a.techno = a.set_techno
START WITH a.set_techno IS NULL
that techno is pk
and set_techno is fk
and use
following code for view my tree:
DECLARE
     htree ITEM;
     b NUMBER;
a RECORDGROUP;
BEGIN
     go_block('BLK_CHART');
htree := FIND_ITEM('BLK_CHART.T');
a := FIND_GROUP('a');
IF NOT ID_NULL(a) THEN
DELETE_GROUP(a);
END IF;
a := CREATE_GROUP_FROM_QUERY('a',
'SELECT 1, LEVEL, a.product, ''exit'',a.techno
FROM bom_products a
CONNECT BY PRIOR a.techno = a.set_techno
START WITH a.set_techno IS NULL and a.techno='''||:BLK.TECHNO||''''
b := POPULATE_GROUP(a);
FTREE.SET_TREE_PROPERTY(htree, FTREE.RECORD_GROUP, a);
END;
and no problem,
my issue is :
add child to my tree and record to my table
can any one help me to add node???????????????????

Answer 1

WRITE THE FOLLOWING SCRIPT IN THE WHEN-BUTTON-PRESSED
INSERT INTO TABLE VALUES (NEW_DISPLAY_LABEL,NEW_VALUE);
COMMIT;
P_PARENT_NODE_VALUE:= ftree.get_tree_node_property('tree4',:system.trigger_node,ftree.node_value);
P_PARENT_NODE := Ftree.Find_Tree_Node('tree4',P_PARENT_NODE_VALUE,Ftree.FIND_NEXT, Ftree.NODE_value, Ftree.ROOT_NODE, Ftree.ROOT_NODE);
P_NEW_NODE := ftree.add_tree_node('tree4',P_PARENT_NODE,ftree.parent_offset,ftree.last_child,ftree.expanded_node,NEW_DISPLAY_LABEL,null,NEW_VALUE);
Message was edited by:
zakaoullah