全选功能

建立ITEM及其触发器如下

程序包CODE：

ELSIF  Pv_Owner = 'CONTROL.CHECK_ALL2'
  AND Pv_Event = 'WHEN-CHECKBOX-CHANGED' THEN
    IF :CONTROL.Check_All2 = 'Y'  THEN
    	go_block('Scux_Mrp_Batch_Modify');
    	first_record;
    	LOOP
		:Scux_Mrp_Batch_Modify.CHOOSE2 := 'Y'; 
		EXIT WHEN :system.last_record = 'TRUE';
        next_record;
       END LOOP;		
       first_record;
  END IF;  
  IF :CONTROL.Check_All2 = 'N'  THEN
    go_block('Scux_Mrp_Batch_Modify');
    first_record;
    LOOP
    :Scux_Mrp_Batch_Modify.CHOOSE2 := 'N';
    EXIT WHEN :system.last_record = 'TRUE';
    next_record;
    END LOOP;
    first_record;
  END IF;
--ELSIF .......

最后

以上就是危机宝马最近收集整理的关于EBS FORM 全选功能样例全选功能的全部内容，更多相关EBS内容请搜索靠谱客的其他文章。