全选功能

建立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 FORM 全选功能样例全选功能所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。