Adding Value To Combo List at Runtime in Oracle Forms

曾经终败给现在 2022-03-30 07:42 105阅读 0赞

You want to add a value in Combo List item in Oracle Forms, by typing it in combo list box text area. Here is the example is given for the same, you can write following block in When-Validate-Item trigger for the combo box item:

Write the following code in When-Validate-Trigger of combo box:  
  
DECLARE  
total\_list\_count Number (10);  
loop\_index\_var Number (10) := 1;  
list\_element Varchar2 (50);  
list\_element\_value Varchar2 (50);  
list\_element\_to\_add Varchar2 (50);  
list\_value\_to\_add Varchar2 (50);  
element\_match Varchar2 (5) := 'FALSE';  
value\_match Varchar2 (5) := 'TRUE';  
list\_id item := Find\_item ('YOURBLOCK.COMBOLIST1');  
BEGIN  
total\_list\_count := Get\_list\_element\_count (list\_id);  
List\_element\_to\_add := :YOURBLOCK.COMBOLIST1;  
  
For I In 1 .. TOTAL\_LIST\_COUNT  
LOOP  
list\_element := Get\_list\_element\_value (list\_id, loop\_index\_var);  
loop\_index\_var := loop\_index\_var + 1;  
  
IF list\_element\_to\_add = list\_element  
Then  
element\_match := 'TRUE';  
END IF;  
  
EXIT When list\_element = list\_element\_to\_add;  
END LOOP;  
  
list\_value\_to\_add := list\_element\_to\_add;  
  
IF element\_match = 'FALSE'  
Then  
Add\_list\_element (list\_id, total\_list\_count + 1, list\_element\_to\_add, list\_value\_to\_add);  
END IF;  
  
\--- element added...  
  
EXCEPTION  
When form\_trigger\_failure  
Then  
RAISE;  
When Others  
Then  
Message (SQLERRM);  
END;

[![combo.PNG][]][combo.PNG]

[combo.PNG]: http://2.bp.blogspot.com/-vny2Xue8M6A/UW_jmLmQFVI/AAAAAAAABXQ/EzZ2h475LIE/s1600/combo.PNG