Please help on List Item... I'm stucked... :(

Question

Hi,
I created my Data Block (my data block is called Supply inside
have DeptId, VendorId and Date_Last_Meet) and Layout
(Windows/Canvases) using the Wizard, than I chg one of the
control item frm Text Item to List Item (Property Palette ->
Item Type). And I added the following code (below) into the WHEN-
NEW-FORM-INSTANCE trigger to populate the list:
DECLARE
group_id RecordGroup;
list_id ITEM;
BEGIN
group_id := Create_Group_From_Query ('my_group',
'SELECT DeptName FROM Department');
list_id := Find_Item('DeptId');
IF (Populate_Group(group_id) = 0) THEN
Populate_List(list_id, group_id);
END IF;
END;
When I run my form it give me this error (a popup error):
FRM-30351: No list elements defined for list item.
List DEPTID
Created form file C:\MP3\75131\TEST_LIST_ITEM.fmx
and this error (displayed in form status bar):
FRM-41334: Invalid record group for list population.
What wrong with the code? I tried every single code in this
forum, but none of them work for me... could someone please help
me out, I'm stucked... :(
Note: I'm using Oracle8i and Form Builder [32 Bit] Version
6.0.8.11.3 (Production).
Thank You.
Regard,
Wai Chong

Answer 1

Hello,
For populating list from Query you need to return 2 columns
from query, one will be display column and Second will be it's
corresponding value. Problem is in your query.Look at following
procedure. Value column must be converted to Character,that's
why I am using To_char here.
PROCEDURE POPULATE_ZONE IS
     V_ZONEITEM               ITEM;
     V_ZONEGROUP               RECORDGROUP;
     N                                   
     NUMBER;
BEGIN
          V_ZONEITEM     := FIND_ITEM('TSTATEM.ZONE');
          IF ID_NULL(V_ZONEITEM) THEN
                    MESSAGE('Item zone does not
exists.');
                    MESSAGE('.');
          ELSE
                    V_ZONEGROUP :=
CREATE_GROUP_FROM_QUERY('ZONEGRP','SELECT NAME,TO_CHAR(ZONE0)
ZONE
     FROM YOGI.TZONEM ORDER BY ZONE0');          
               N := POPULATE_GROUP('ZONEGRP');
               IF N <> 0 THEN
                         MESSAGE('Group zone does
not contain entries.');
                         MESSAGE('.');
                         RAISE
FORM_TRIGGER_FAILURE;
               ELSE
                         POPULATE_LIST
('TSTATEM.ZONE','ZONEGRP');
               END IF;
     END IF;
END;
Adinath Kamode