clear_list('blockname.item');
l_index := 1;
FOR cur IN rec_cur LOOP --循环游标
BEGIN
add_list_element(''blockname.item',
l_index,
cur.meaning,
cur.lookup_code
);
l_index := l_index + 1;
EXCEPTION
WHEN OTHERS THEN
NULL;
END;
END LOOP;
l_index := 1;
FOR cur IN rec_cur LOOP --循环游标
BEGIN
add_list_element(''blockname.item',
l_index,
cur.meaning,
cur.lookup_code
);
l_index := l_index + 1;
EXCEPTION
WHEN OTHERS THEN
NULL;
END;
END LOOP;
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/26189725/viewspace-1433927/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/26189725/viewspace-1433927/