当我打开form的时候,可以显示,但是点击旁边的tab page的时候报frm-41053:找不到画布,无效的ID,怎么调试都不行,那位给一个意见,谢谢了
/*==========================================================
**
** PROCEDURE: line_tab()
**
**=========================================================*/
procedure line_tab(event in varchar2) is
curr_canvas_name varchar2(30) := get_item_property(:system.cursor_item,
item_canvas);
current_tab varchar2(30) := get_canvas_property('LINE_TAB',
topmost_tab_page);
target_canvas_name varchar2(30) := :system.tab_new_page;
begin
if (event = 'WHEN-TAB-PAGE-CHANGED') then
if curr_canvas_name in ('MAIN') then
show_view(target_canvas_name);
go_item(:system.cursor_item);
else
validate(item_scope);
if not form_success then
set_canvas_property('LINE_TAB',topmost_tab_page, :system.tab_previous_page);
return;
end if;
if target_canvas_name = 'LINE_MAIN' then
go_item('ORDER_LINES.ITEM_CODE');
elsif target_canvas_name = 'LINE_ADDITION' then
go_item('ORDER_LINES.ADDITION1');
elsif target_canvas_name = 'LINE_OTHERS' then
go_item('ORDER_LINES.OTHER1');
end if;
end if;
elsif (event = 'WHEN-NEW-ITEM-INSTANCE') then
if ((curr_canvas_name in ('LINE_MAIN','LINE_ADDITION','LINE_OTHERS')) and (curr_canvas_name != current_tab)) then
set_canvas_property('LINE_TAB',topmost_tab_page,curr_canvas_name);
end if;
elsif (event = 'INIT') then
show_view('LINE_TAB');
show_view('LINE_FIXED');
hide_view('LINE_OTHERS');
hide_view('LINE_ADDITION');
show_view('LINE_MAIN');
else
app_exception.invalid_argument('LINE_TAB',
'EVENT', event);
end if;
end line_tab;
[ 本帖最后由 ponky 于 2010-5-20 11:28 编辑 ]