动态生成记录组和LOV

v_Group_Name Recordgroup;
v_Add_Gname Groupcolumn;
v_Group_Sql NUMBER;

1，定义sql语句

v_sql := SELECT Short_Code , Description from dual

2,通过名称查询记录组是否存在

v_Group_Name:=Find_Group(Ca.Result_Column_Name)

IF Id_Null(v_Group_Name) then

--不存在

3， v_Group_Sql := Populate_Group_With_Query(v_Group_Name, v_Sql); --重新设置SQL

4，Set_Lov_Property(Ca.Result_Column_Name, Group_Name, v_Group_Name); --设置LOV与记录组关系

5，Set_Lov_Property(Ca.Result_Column_Name, Lov_Size, 3, 4); --设置LOV SIZE

6，Set_Item_Property(‘CUX_QA_REPORT_LINES.‘ || Ca.Result_Column_Name, Lov_Name, Ca.Result_Column_Name); --设置ITEM与LOV的关系