oracle forms: managing the list item

It is quite possible to use multiple selections in a list view.  We have now built a complete application using listviews and includes functionality to update a column value for multiple selected rows...  Here is a small piece of code....

PROCEDURE NOTES_BTN IS

  hListItem                    MSComctlLib_CONSTANTS.IListItem;
  hListItems                  MSComctlLib_CONSTANTS.IListItems;
  hListSubItems   MSComctlLib_CONSTANTS.IListSubItems;
  hListSubItem    MSComctlLib_CONSTANTS.IListSubItem;
  nListCount      INTEGER;
  nListSubCount   INTEGER;
  nSelectedCount  INTEGER;
  vFileHistoryId  NUMBER(10);

  CURSOR cNote (pFileHistoryId IN VARCHAR2) IS
      SELECT updated_notes, status_id
      FROM   REJECTION_REASON
      WHERE  FILE_HISTORY_ID = pFileHistoryId;

 
BEGIN

nSelectedCount :=0;
:b1.txt_notes:=null;
:b1.list_status:=null;


IF MSCOMCTLLIB_ILISTVIEW.SelectedItem(:item('B1.LVW_REJECTIONS').interface) != 0 THEN -- if list exists
      
  -- Use actual listview.  The comment underneath shows how to use interface passed in to procedure.
  hListItems := MSCOMCTLLIB_ILISTVIEW.ListItems(:item('B1.LVW_REJECTIONS').interface); -- Pointer to ListItems in ListView
  --hListItems := MSCOMCTLLIB_ILISTVIEW.ListItems(interface); -- Pointer to ListItems in ListView
  nListCount := MSCOMCTLLIB_ILISTITEMS.ole_count(hListItems); -- Count of records in listView
  FOR nInt IN 1 .. nListCount LOOP -- Loop round all records in Listitems

    hListItem := MSCOMCTLLIB_ILISTITEMS.item(hListItems,TO_VARIANT(nInt)); -- Point to nInt listitem of the collection
    --Vrecord := MSCOMCTLLIB_ILISTITEM.text(hListItem); -- Vrecord = the nInt listitem (the first field)

    hListSubItems := MSCOMCTLLIB_ILISTITEM.ListSubItems(hListItem); -- Pointer to SubItems in ListItems
    nListSubCount := MSCOMCTLLIB_ILISTSUBITEMS.ole_count(hListSubItems); -- Count of fields in SubItems
       
    IF MSCOMCTLLIB_ILISTITEM.selected(hListItem) = -1 THEN -- If item in list is selected

        nSelectedCount := nSelectedCount +1;

        hListSubItem := MSCOMCTLLIB_ILISTSUBITEMS.item(hListSubItems,TO_VARIANT(16));
        vFileHistoryId := MSCOMCTLLIB_ILISTSUBITEM.text (hListSubItem);

    END IF;
        
  END LOOP;

  IF nSelectedCount = 1 then --If only 1 record selected then populate notes screen with existing note and status
    FOR rNote IN cNote (vFileHistoryId) LOOP

      --Populate notes and status items with values in rejection_reason table
      :b1.txt_notes:=rNote.updated_notes;
      :b1.list_status:=rNote.status_id;
      exit;
 
    END LOOP;

  END IF;      

  go_item('b1.txt_notes');

ELSE
--IF hListItem is null THEN
      message('Please Select A Rejection Record To Update');
  go_item('b1.list_file_type');
  :GLOBAL.errored := 'TRUE';
  raise form_trigger_failure;

END IF;

bdhale,
whatever you demonstrated with your code is an external package. Most likely you have an ActiveX control presenting list with multi-selection option and you have MSCOMCTLLIB_ILISTSUBITEM package imported through the forms OLE importer. This still does not make the forms built-in lists multi-select and it is VERY customized and specific for your case.

Apologies - just past this on the way to looking for something else.  Saw the word list item and thought of what we had done with list views.  Don't know if you have used them much before but they turn Forms in to a new product in terms of the way the data is presented to the user and the way they can control the look of the screen.  Unfortunately there is no information anywhere on using them in forms - you just have to use the microsoft VB info and try and convert to use with Forms.

However we are very happy with the application we have built and the way the code is so flexible it could be used to build all future applications and give the users the Microsoft look they are used to.  The code above is specific to our application - I just dumped it on this site - however the way it works i.e. looping round the list view and updating the database for highlighted rows could be used with and list view.

May I ask how you get the time to respond to all these questions on this site.  You are a very good resource and have already responded to my questions before!!

Many thanks

This site is also a good resource for me to learn stuff from the questions, although it is hard to find enough time ;-)