如何将单个值复制到表格形式的所有字段?

How to copy single value to all fields in tabular form?

我想将单个值从字段复制到所有字段中的表格

我的单副本代码:

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

如何将值复制到 oracle forms 10g 表格中的所有字段?

像这样修改你的代码:

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;