How to retreive multiple rows on a tabbed page

Question

Dear Gurus,
I am new to Forms Programming. I have 4 tab pages on the canvas. On one of the tab page I am trying to retrieve multiple rows from the database. I want that the data should be automatically displayed as user changes to that tab page.
The problem which I think is that the cursor is not moving from the first tab page to the new tab page. When I am trying to use go_item, it is not allowing me to change the tab page as all the items on this tab page is display item. Even go_block is not working. I am writing both the functions on When_Tab_Page_Changed trigger.
Please Help!!!!!!!!

Answer 1

Hi
Try this one. Check the logic. I didn't have much time to program. With this draft you can begin to do what you need.
Bye, Aron
create or replace package testpkg is
        type TYPE_TESTNAMES IS TABLE OF testnames%rowtype index by binary_integer;
        procedure getByStatus(countToReturn in NUMBER,status in NUMBER,newStatus in NUMBER, records in out TYPE_TESTNAMES);
end testpkg;
create or replace package body testpkg IS
procedure getByStatus(countToReturn in NUMBER,status in NUMBER,newStatus in NUMBER, records in out TYPE_TESTNAMES)
is
        selectedIds MESSAGE_ID_TABLE;
        cursor select_messages_by_status (currentStatus NUMBER) is
                    select id
                 from testnames
                 where status= currentStatus
                 for update;
        cursor t (currentStatus NUMBER) is
                    select *
                 from testnames
                 where status= currentStatus
                 for update;
        r testnames%rowtype;
        i int := 0;
begin
      open select_messages_by_status(status);
      fetch select_messages_by_status bulk collect into selectedIds limit countToReturn;
      for selectedId in selectedIds.first..selectedIds.last loop
            update testnames set status = newStatus where id = selectedId;
      end loop;
      open t(status);
      loop
            fetch t into r;
            exit when t%notfound;
           records(i) := r;
           i := i + 1;
      end loop;
end getByStatus;
end testpkg;
-- Test program
declare
r testpkg.TYPE_TESTNAMES;
begin
testpkg.getByStatus(2, 0, 3, r);
dbms_output.put_line(r(1).id);
end;