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

Question

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

我的单份代码：

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

如何将值复制到oracle forms 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;