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
譚明 閱讀(1839)
評論(0) 編輯 收藏 所屬分類:
Developer Forms