EBS Form开发中通过Radio Button来调用LOV实现实例（4）

EBS Form开发中通过Radio Button来调用LOV实现实例（4）

（版权声明，本人原创或者翻译的文章如需转载，如转载用于个人学习，请注明出处；否则请与本人联系，违者必究）

继续使用上次创建的form，通过点击Radio Button来展示LOV:

1.      首先，在RESULLTSBlock添加一个Radio Group RADIOLOVTEST.

2.      然后在上面的RadioGroup添加一个Radio Button SHOWTXNLOV,并设置属性如下.

3.      继续添加一个RadioButton NOTSHOWLOV并设置属性如下.

4.      然后再Radio Group上设置属性如下，主要是设置initial Value字段.

5.      为Radio Group添加WHEN-RADIO-CHANGED 触发器，并添加代码如下，这里主要运用了内置函数SHOW_LOV(lov_name VARCHAR2);

Declare X_RETBOOLEAN;

Begin

  IF :FIND.RADIOLOVTEST = 'ShowLov' THEN

  X_RET:= SHOW_LOV('HW_TXN_LOV');

  IF NOTX_RET THEN

       :FIND.RADIOLOVTEST :='NotShowLov';

  END IF;

  END IF;

END;.

6.      把上面的Radio Button添加到FIND Canvas上，并调整位置如下.

7.      保存，上传到EBS服务器，然后编译

8.      打开EBS，然后打开这个form，效果如下.

9.      点击’ShowTransaction LOV’时，就会自动弹出LOV，效果如下

10.  如果点击关闭，或者Cancel的话，就自动选中‘Not Show Transaction LOV‘;如果选中了一条记录，选中的值就会返回到TransactionID自动上去。如下

这样一个通过Radio Button来展示LOV的实例就实现了。