Create Hierarchy using listitems

Question

Hi all
I need Some help From anyone
I want to create Hierarchy for list items in Forms6i using add_list_element and Delete_List_element OR any other alternative
.....Your Help will be appreciated
HTH
RangaReddy

Answer 1

create a table and populate the table
Create Table MyTreeData
(INITIAL_LEVEL             NUMBER,
NODE_DEPTH                NUMBER,
NODE_LABEL                VARCHAR2(10),
NODE_ICON                 VARCHAR2(30),
NODE_DATA                 VARCHAR2(40),
NODE_PARENT               VARCHAR2(10),
NODE_EXPAND_FLAG          NUMBER);
Insert Into MyTreeData Values (-1,2,'Car','','CAR','TRANSPORT',0);             
Insert Into MyTreeData Values (-1,2,'Plane','','PLANE','TRANSPORT',0);         
Insert Into MyTreeData Values (0,2,'Bike','','BIKE','TRANSPORT',0);            
Insert Into MyTreeData Values (1,1,'Transport','','TRANSPORT','',1);           
Insert Into MyTreeData Values (0,3,'Honda','','HONDA','CAR',0);                
Insert Into MyTreeData Values (0,3,'Boeing 747','','747-400','PLANE',0);       
Insert Into MyTreeData Values (0,3,'Mazda','','MAZDA','CAR',0);                
Insert Into MyTreeData Values (1,1,'Food','','FOOD','',0);                     
Insert Into MyTreeData Values (-1,2,'Fruit','','FRUIT','FOOD',0);              
Insert Into MyTreeData Values (-1,2,'Vegetable','','VEGETABLE','FOOD',0);      
Insert Into MyTreeData Values (0,3,'Spinach','','SPINACH','VEGETABLE',0);      
Insert Into MyTreeData Values (0,3,'Carrot','','CARROT','VEGETABLE',0);create a form and a data block and named it as MYTREE
create a base item with item type as hierarchical tree and named is as MYTREE
on the base item property enter the code at the Data Query property
SELECT initial_level, node_depth, node_label, node_icon, node_data
  FROM MyTreeData
START WITH node_parent IS NULL CONNECT BY node_parent = prior node_datacreate a data block trigger WHEN-NEW-BLOCK-INSTANCE and create the code as follows:
Declare
     vTree Item;
     Top_Node FTREE.NODE;
     Find_node FTREE.NODE;
Begin
     vTree := FIND_ITEM('MyTreeBlock.MyTree');
     FTREE.POPULATE_TREE(vTree);
End;     run the form. hope this helps.