具有多记录数据块的表单,通过调用已检查行的PL / SQL来更新表。需要能够在execute_query之后保留复选框检查状态和位置。
WHEN-BUTTON-PRESSED上的代码用于处理所有选定的行。
DECLARE
l_cur_record NUMBER;
v_error VARCHAR2 (1);
BEGIN
l_top_record := GET_BLOCK_PROPERTY ('LOAD_DETAILS_LOG', TOP_RECORD);
GO_BLOCK ('LOAD_DETAILS_LOG');
FIRST_RECORD;
LOOP
IF :LOAD_DETAILS_LOG.select_chk = 'Y'
THEN
l_cur_record := :SYSTEM.CURSOR_RECORD;
PK_LOAD_CHE.P_CHECK_FILES ( :LOAD_DETAILS_LOG.file_id,
:LOAD_DETAILS_LOG.original_filename,
:LOAD_DETAILS_LOG.fsy_code,
:LOAD_DETAILS_LOG.received_date,
v_error);
END IF;
EXIT WHEN :SYSTEM.LAST_RECORD = 'TRUE';
NEXT_RECORD;
END LOOP;
IF v_error = 'Y'
THEN
msg_alert ('Errors found in selected files. Please check Error Log',
'I',
FALSE);
GO_BLOCK ('LOAD_DETAILS_ERRORS');
EXECUTE_QUERY;
ELSE
GO_BLOCK ('LOAD_DETAILS_LOG');
EXECUTE_QUERY (NO_VALIDATE);
END IF;
END;
需要能够在execute_query之后保留复选框检查状态和位置。
如果复选框“状态”表示是否检查,则它必须是数据库项(即属于表)。如果它是不基于表值的项,则执行查询无法知道检查了哪些复选框(哪些不是)。
这也回答了问题的第二部分。
就像小脚说的那样,你应该把复选框变成一个可用的东西。如果您不能这样做或者不想这样做,那么您可以在查询之前检查临时表或数组中的值。在查询之后,您可以遍历每一行并检查数组或临时表中是否已检查该值并再次检查它。