1 前言

　　在实际编程过程中，往往会遇到比较变态的用户需求。例如：用户需要将不同行的数据，合并起来，显示于字段中的某个列。

　　例如：第一生产线生产：A，B产品；第二生产线生产：C、D产品，在数据库中的记录应为：

　　生产线

　　产品

　　1

　　A

　　1

　　B

　　2

　　C

　　2

　　D

　　但是用户希望我们在界面中显示的结果为：

　　生产线

　　产品

　　1

　　A、B

　　2

　　C、D

　　由于FORM不象PB，可以在前台支持交叉表；用户又需求对该数据进行某种处理，所以不能放在REPORT中实现，因此实现此类用户需求，就只能在后台实现了。

　　实现该用户需求，大部份程序员会选择使用临时表，手工插入数据，本文主要论述使用视图实现该需求的方法。

　　当然，使用临时表实现该需求和使用视图实现该需求的执行效率对比，仁者见仁，智者见智，不在本文中研讨。

　　2 实现思路

　　2.1 创建一个表类型，用于将相同生产线不同的产品作为参数进行传递

　　2.2 创建一个函数，将传入的数据表类型参数，转化为字符类型返回

　　2.3 创建一个视图，将纵向的数据转化为横向的数据，以字符方式显示

　　3 实例演练

　　--3.1 创建测试环境

　　--创建数据表类型

　　Create Or Replace Type Tp_TempTable Is Table Of Varchar2(200);

　　/

　　--创建函数，将传入的数据列表转为横向字符

　　Create Or Replace Function FN_GetLineProd

　　(P_LineProd In TP_TempTable)

　　Return Varchar2

　　Is

　　L_Str varchar2(4000);

　　i Number;

　　Begin

　　For i in 1..P_LineProd.Count Loop

　　If L_Str Is Null Then

　　L_Str:=P_LineProd(i);

　　Else

　　L_Str := L_Str || '、' || P_LineProd(i);

　　End If;

　　end loop;

　　Return L_Str;

　　End FN_GetLineProd;

　　/

　　--创建过渡表

　　Drop Table T;

　　create table T (Line number,Prod varchar2(10));

　　insert into T values(1,'A');

　　insert into T values(1,'B');

　　insert into T values(1,'C');

　　insert into T values(2,'D');

　　insert into T values(2,'E');

　　Commit;

　　--3.2 执行查询

　　--查询语句

　　select

　　T0.Line

　　--生产线编号

　　,FN_GetLineProd(

　　--将同一生产线，不同产品的数据列表作为参数传入自定义函数

　　Cast(

　　--将嵌套表类型转化为数据表类型

　　Multiset(Select Prod From T Where T.Line = T0.Line)

　　--将与最外层查询相同的生产线产品列表，以嵌套表方式返回

　　as TP_TempTable)

　　) Prod

　　From

　　(Select Distinct Line From T) T0 --得到生产线列表

　　;