(转帖)将纵向数据列表转化为横向数据字段使用视图实现

liunan2000

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