How to move value from one tlist to another tlist in same form?

Question

how to move value from one tlist to another tlist in same form on button press?
Same like in data block wizard when we select value from 1st list it will go to 2nd list and can be move back. Please help i am new to forms .
Regards

Answer 1

just call the following proc in your add & add all buttons. Reverse the code for REMOVEs
this proc will move one item at a time from list_item1 to list_item2.
PROCEDURE add_an_item
IS
  v_list_count    NUMBER;
  v_item1_label  VARCHAR2(60);
BEGIN
  IF :list_item1 IS NOT NULL THEN v_list_count := nvl(Get_List_Element_Count('list_item1'),0);
      IF v_list_count >= 1 THEN FOR i IN 1..v_list_count
      LOOP
         IF   :list_item1    = Get_List_Element_Value('list_item1', i)
         THEN
              v_item1_label := Get_List_Element_label('list_item1', i);                 
              Add_List_Element('list_item2',1,v_item_label,:list_item1);         
           Delete_List_Element('list_item1',i);
           Exit;
         END IF;
      END LOOP;
       END IF;
   END IF;
END;
*********************************************************************************this proc will move all items from list_item1 to list_item2.
PROCEDURE add_all_items
IS
  v_list_count NUMBER;
  v_item_label VARCHAR2(60);
  v_item_value VARCHAR2(60);
BEGIN
v_list_count := nvl(Get_List_Element_Count('list_item1'),0);
IF    v_list_count = 1 AND Get_List_Element_Value('list_item1', 1) IS NULL THEN NULL;
ELSIF v_list_count >= 1 THEN
       FOR i IN 1..v_list_count
       LOOP
        v_item_value  := Get_List_Element_Value('list_item1', i);
        v_item_label  := Get_List_Element_label('list_item1', i);       
        Add_List_Element('list_item2',i,v_item_label,v_item_value);
       END LOOP;
       clear_list('list_item1');
END IF;
END;I added [ code ] tags to make this easier to read.
Message was edited by:
Jan Carlin