遍历关联数组 index by varchar2

--字符串序列要这样

declare


    type t   is table of number(3) index by varchar2(3);


   hash_t t;  


   l_row varchar2(3);


  begin


  hash_t('a') := 10;


  hash_t('b') := 20;  


  l_row :=hash_t.first;


  while(l_row is not null) loop


  dbms_output.put_line(hash_t(l_row));


  l_row:=hash_t.next(l_row);


  end loop;


  end;


--数字序列可以这样


declare


    type t   is table of number(3) index by pls_integer;


   hash_t t;  


   l_row varchar2(3);


  begin


  hash_t(1) := 10;


  hash_t(2) := 20;  


  for i in hash_t.first .. hash_t.last loop


  dbms_output.put_line(hash_t(i));


  end loop;


  end;