1、使用DEFAULT_WHERE：
DECLARE
V_DEFAULT_WHERE VARCHAR2(32767);
V_WHERE VARCHAR2(32767);
BEGIN
--获取系统默认的查询条件
V_DEFAULT_WHERE := GET_BLOCK_PROPERTY(:SYSTEM.CURSOR_BLOCK, DEFAULT_WHERE);
--根据查询条件是否有WHERE拼接SQL
IF V_DEFAULT_WHERE IS NULL THEN
V_WHERE := V_DEFAULT_WHERE || ' WHERE 1 = 1 ';
ELSE
V_WHERE := V_DEFAULT_WHERE || ' AND 1 = 1 ';
END IF;
--拼接其它查询条件 BEGIN--
--
--
--拼接其它查询条件 END--
SET_BLOCK_PROPERTY(:SYSTEM.CURSOR_BLOCK, DEFAULT_WHERE, V_WHERE); --将新的查询条件赋值给这个BLOCK的DEFAULT_WHERE进行查询
--清空，否则FORM下次查询的时候会把前一次的条件带入
CLEAR_RECORD;
EXECUTE_QUERY;
--将原默认的DEFAULT_WHERE值重新恢复回去
SET_BLOCK_PROPERTY(:SYSTEM.CURSOR_BLOCK, DEFAULT_WHERE, V_DEFAULT_WHERE);
END;
2、…
3、…
此内容由惯性聚合(RSS阅读器)自动聚合整理，仅供阅读参考。 原文来自 — 版权归原作者所有。