Как скопировать одно значение во все поля в табличной форме?

Question

Я хочу скопировать одно значение из поля в таблицу во всех полях

Мой код для одной копии:

DECLARE 
  cur_val VARCHAR2(40); 
BEGIN       
  cur_val := Name_In('BLOCK_NAME.SOURCE');
  Copy( cur_val, 'BLOCK_NAME.DESTINATION' );    
END;

Как скопировать значения во все табличные поля в формах оракула 10g?

Answer 1

измените ваш код следующим образом:

DECLARE 
  cur_val VARCHAR2(40); 
BEGIN       
  cur_val := Name_In('BLOCK_SRC.SOURCE');

  Go_Block('BLOCK_DEST');
  first_record;
  loop
    Copy( cur_val, 'BLOCK_DEST.DESTINATION' );
    exit when :SYSTEM.LAST_RECORD = 'TRUE';
    next_record;
  end loop;

END;