|
Re: Dynamic Columns in Lov..............? [message #80759 is a reply to message #80755] |
Mon, 18 November 2002 02:29  |
Shiju Joy
Messages: 4 Registered: February 2002
|
Junior Member |
|
|
--Here is an EXAMPLE
--CORPORATE_ID is the name of your LIST BOX here.
--MYTABLE is the table and MY_ID is the column
DECLARE
group_id RecordGroup;
list_id ITEM;
err_code NUMBER;
BEGIN
group_id := FIND_GROUP('CORPORATE_GROUP');
IF ID_NULL(group_id) THEN
group_id := CREATE_GROUP_FROM_QUERY
('CORPORATE_GROUP',
'Select MY_ID, MY_ID
from MYTABLE');
END IF;
err_code := POPULATE_GROUP(group_id);
list_id := FIND_ITEM('CORPORATE_ID');
CLEAR_LIST(list_id);
IF err_code = 0 THEN
POPULATE_LIST(list_id,group_id);
END IF;
EXCEPTION
WHEN OTHERS THEN
RAISE FORM_TRIGGER_FAILURE;
END;
|
|
|