Re: Populating a list item at runtime...

Mike Rife (rife_at_moffitt.usf.edu) wrote:
>I'm attempting to populate a list item with items located in a table...I
>know how to load the items manually at design time, but can't figure out
>how to do it during runtime....

Here a procedure which does a often needed task: getting a ID->Name mapping in a table into a List Item. new_table is the table from the database, blk is the block of the item, and new_item is the list item in this block:

PROCEDURE POPULATE_LIST(new_table CHAR, blk CHAR, new_item CHAR) IS

	group_id	RecordGroup;
	list_id		Item;
	status		NUMBER;
BEGIN
	list_id := Find_Item(blk || '.' || new_item);
	group_id := Create_Group_From_Query(new_item,
		'SELECT name, to_char(id) FROM nsdb.' || new_table
			|| ' ORDER BY name');
	status := Populate_Group(group_id);

	Populate_List(list_id, group_id);
	Delete_Group(group_id);

walter.zimmer_at_rz.uni-ulm.de
Forms 4.5 developer Received on Wed Mar 26 1997 - 00:00:00 CET