Shifting List Item Values From One List To Another In Oracle Forms

Suppose you have two T-List items in form and you want  to shift element values from one list to another in Oracle Forms, here is the example given below for the same. Create two buttons also between list items as shown in picture in the bottom of this blog. Create one button with label ">" and another with label "<".

When-button-pressed trigger code for button with label ">":

declare
    n number;
    vval varchar2(100);
begin
    --- replace rightsidelist with your list name placed on right side
    --- replace leftsidelist with your list name placed at left side
      n := get_list_element_count('rightsidelist');
      add_list_element('rightsidelist', n + 1, :leftsidelist, :leftsidelist);
      --- delete element
      n := get_list_element_count('leftsidelist');
      for i in 1..n loop
            vval := get_list_element_value('leftsidelist',i);
           if vval = :leftsidelist then
                   delete_list_element('leftsidelist',i);
           end if;
      end loop;
end;

When-button-pressed trigger for button with label "<":

declare
    n number;
    vval varchar2(100);
begin
      n := get_list_element_count('leftsidelist');
      add_list_element('leftsidelist', n + 1, :rightsidelist, :rightsidelist);      
      
      --- delete element
      n := get_list_element_count('rightsidelist');
      for i in 1..n loop
            vval := get_list_element_value('rightsidelist',i);
           if vval = :rigtsidelist then
                   delete_list_element('rightsidelist',i);
           end if;
      end loop;
end;

See also:
Create List Item In Oracle Forms  
 
list2.png

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值