随笔-28  评论-15  文章-81  trackbacks-0
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

只有注册用户登录后才能发表评论。


网站导航: