EBS FORM进阶2. Checkbox全选反选

Posted 2020-07-27

go_block(‘BLOCKNAME‘); --跳到目的数据块 
first_record; --从第一条记录开始循环 
LOOP 
  if :BLOCK116.check_all = ‘Y‘ then 
    :BLOCKNAME.check_box := ‘Y‘; --将指定行的复选框设置为选中 
  else 
    :BLOCKNAME.check_box := ‘N‘; 
  end if; 
  EXIT WHEN :system.last_record = ‘TRUE‘; 
  next_record; 
END LOOP; 
first_record;

来自为知笔记(Wiz)