DECLARE
l_group_id recordgroup;
l_group_errcode
NUMBER;
BEGIN
-- 检查是否已经存在该 RECORD_GROUP
l_group_id := find_group
(proj_rg_name
);
-- 如果不存在
IF id_null
(l_group_id
) THEN
-- 创建RECORD_GROUP
l_group_id := create_group_from_query
('MY_REC_NAME',
'SELECT NULL FROM DUAL');
-- 错误代码
l_group_errcode := populate_group
(l_group_id
);
END IF;
-- 设置 LOV 的RECORD_GROUP
set_lov_property
('MY_LOV_NAME', group_name,
'MY_REC_NAME');
set_item_property
('MY_BLOCK.MY_ITEM', lov_name,
'MY_LOV_NAME');
END;
posted on 2008-05-23 14:17
谭明 阅读(1827)
评论(0) 编辑 收藏 所属分类:
Developer Forms