FORMS之LOV动态赋给记录组

1.在数据块d_test，增加一文本项l_test、LOV项lov_test、记录组Rec_test1、Rec_test2。
2.给记录组Rec_test1、Rec_test2赋SQL语句，并将项Lov_test的记录组设成Rec_test1。
3.在WHEN-BUTTON-PRESS触发器中加入
Declare Lov_id LOV;
Begin
　Lov_id := Find_Lov('lov_test');
　if Get_Lov_Property(Lov_id,Group_Name)=' Rec_test1' then
　　Set_Lov_Property(kpi_lov_xsbb,Group_Name,'
　　Rec_test2');
　end if;
End;