Re: form5 text-item -value

Peter,

This should work:

DECLARE
  cur_blk VARCHAR2(80) := :System.Cursor_Block;   lst_itm VARCHAR2(80);
  i NUMBER := 1;

BEGIN
  Go_Block(cur_blk);
  lst_itm := cur_blk||'.'||Get_Block_Property(cur_blk,LAST_ITEM);   LOOP
    Copy(i, :System.Cursor_Item);
    i := i + 1;
    EXIT WHEN lst_itm = :SYSTEM.Cursor_Item;     Next_Item;
  END LOOP;
END;

-- 
Regards,

Zbigniew Sliwa
Oracle Programmer
Poland
email: zibi_at_at_yahoo.com

peter wrote:


> 

> hi..

>        I have 20 text-items..... t1,t2,t3,t4,t4,t5....t20


>        what I want  is to set these text-items values

>          eg:

>                 t1:=1;

>                 t2:=2;

>                 t3:=3;

>                 t4:=4;

>           how to use a loop to do that???????