将纵向数据列表转化为横向数据字段

　　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 --得到生产线列表
　　　;

原文转自：http://www.ltesting.net