日期:2014-05-17  浏览次数:20698 次

pl/sql form开发,求语句解释
DECLARE
V_CURR_RECORD NUMBER;
BEGIN
  V_CURR_RECORD := :SYSTEM.TRIGGER_RECORD; --将系统的记录数赋给它
  IF :po_IMPORT_HISTORY.SELECTED_FLAG = 'Y' THEN
 
  IF :PARAMETER.P_RECORD_CODE IS NOT NULL THEN
GO_RECORD(:PARAMETER.P_RECORD_CODE);
:po_IMPORT_HISTORY.SELECTED_FLAG := 'N';
GO_RECORD(V_CURR_RECORD);
  END IF;
 
:PARAMETER.P_RECORD_CODE := :SYSTEM.TRIGGER_RECORD;
  ELSE
  :PARAMETER.P_RECORD_CODE := NULL;
  END IF;
 
  END;



------解决方案--------------------
DECLARE
V_CURR_RECORD NUMBER;
BEGIN
V_CURR_RECORD := :SYSTEM.TRIGGER_RECORD; --将系统的记录数赋给它
 --如果块po_IMPORT_HISTORY的item为SELECTED_FLAG值为Y
IF :po_IMPORT_HISTORY.SELECTED_FLAG = 'Y' THEN
 --如果参数P_RECORD_CODE 不为空 
IF :PARAMETER.P_RECORD_CODE IS NOT NULL THEN
--光标跳到参数为:PARAMETER.P_RECORD_CODE的记录
GO_RECORD(:PARAMETER.P_RECORD_CODE);
:po_IMPORT_HISTORY.SELECTED_FLAG := 'N';
--块po_IMPORT_HISTORY的item为SELECTED_FLAG值改为N
GO_RECORD(V_CURR_RECORD);----光标跳到参数为V_CURR_RECORD的记录
END IF;
 --将记录值赋给参数P_RECORD_CODE 
:PARAMETER.P_RECORD_CODE := :SYSTEM.TRIGGER_RECORD;
ELSE
:PARAMETER.P_RECORD_CODE := NULL;--将参数P_RECORD_CODE 赋值班为空

END IF;
  
END;