oracle怎样统计多列是否重复,Oracle FORM Bulider 校验多行多列数据重复的一种方法...

FORM Bulider开发过程中，有些界面在输入时，经常要判断输入的数据是否有重复。

本文介绍一种在多列多行校验数据的方法。

如下，完成界面上所有输入的工单不能重复的功能。

分析：

因为  FORM Bulider的许多触发器不允许使用go_record()、next_record等，所以在上诉多行多列进行校验时无法使用WHEN-VALIDATE-ITEM等触发器。

可以再用户输入完成后，点击保存时进行校验，对界面数据逐条记录并比较。

实现：

(1)在FORM触发器KEY-COMMT中添加校验代码；

(2)代码实现，创建一个多维数组，记录数据的行、列、值，然后利用两重循环从数组第一个数据和最后一个数据反向进行校验。

--定义三维记录用作三维数组，分别存放工单号、记录行、栏位

type v_tab_rec is record(ref_name varchar2(20),ref_record number,ref_item varchar2(40));

TYPE V_TAB IS TABLE OF v_tab_rec;    --声明嵌套表

v_tab_temp V_TAB := V_TAB();      --初始化

begin

go_block('BITC_BOM_ENTITY');

l_current_row := :system.cursor_record;

first_record;

loop

l_record :=  l_record + 1;

--将数据逐一保存

if :BOM_ENTITY.source_ref1_name is not null then

l_count := l_count + 1;

v_tab_temp.EXTEND;          --扩展嵌套表元素个数

v_tab_temp(l_count).ref_name   := :BOM_ENTITY.source_ref1_name;

v_tab_temp(l_count).ref_record := l_record;

v_tab_temp(l_count).ref_item   := 'BOM_ENTITY.source_ref1_name';

end if;

if :BOM_ENTITY.source_ref2_name is not null then

l_count := l_count + 1;

v_tab_temp.EXTEND;

v_tab_temp(l_count).ref_name   := :BOM_ENTITY.source_ref2_name;

v_tab_temp(l_count).ref_record := l_record;

v_tab_temp(l_count).ref_item   := 'BOM_ENTITY.source_ref2_name';

end if;

……………………保存所有数据

EXIT WHEN :SYSTEM.LAST_RECORD = 'TRUE';

next_record;

end loop;

--利用两重循环查看是否有重复工单

go_record(l_current_row);

l_count_num := l_count;

for m in  1..v_tab_temp.count loop  --从第一个数据开始

l_source_ref :=  v_tab_temp(m).ref_name;

for i in reverse 1..v_tab_temp.count loop    --从最后一个数据开始

if l_source_ref = v_tab_temp(i).ref_name and i != m then

go_block(BOM_ENTITY');

go_record(v_tab_temp(i).ref_record );  --跳转至重复工单

go_item(v_tab_temp(i).ref_item);

fnd_message.debug('工单号 '||l_source_ref||' 在画面记录中第 '||v_tab_temp(m).ref_record||

' 和 '||v_tab_temp(i).ref_record||' 行均存在关联关系,请确认！');

raise form_trigger_failure;

exit;

end if;

end loop;

end loop;

如上方法就可实现数据校验。