oracle数据表的分组转置
设计物料价格表，然后导出列表这样的数据物料编码 最近价格1 最近价格2 最近价格3 的报表，最近价格1>最近价格2>最近价格3。
即显示为如下：
列1 列2 列3 列3
---- ----- ----- -----
物料1 价格1 价格2 价格3
物料2 价格1 价格2 价格3
价格1对应时间>价格2>价格3
创建表的sql，和造的假数据如下：
--物料表
create table tb_material(
m_code number ,
m_name varchar2(10)
);
--物料价格更新表
create table tb_m_price(
m_code number,
price_date date,
price number
);
--物料表假数据
insert into tb_material values(1,'物料1');
insert into tb_material values(2,'物料2');
insert into tb_material values(3,'物料3');
--物料价格更新表假数据
insert into tb_m_price values(1,'1-1月-12',100);
insert into tb_m_price values(1,'4-2月-12',105);
insert into tb_m_price values(1,'5-3月-12',107);
insert into tb_m_price values(1,'6-4月-12',110);
insert into tb_m_price values(2,'1-1月-12',200);
insert into tb_m_price values(2,'4-2月-12',205);
insert into tb_m_price values(2,'5-3月-12',337);
insert into tb_m_price values(2,'6-4月-12',310);
求赐教！
[解决办法]
create table tb1( v_id number, v_wl varchar2(10), v_data1 date , v_price1 number, v_data2 date, v_price2 number, v_data3 date, v_price3 number);create or replace procedure pro_testis v_id number; v_wl varchar2(10); v_data1 date;--最近时间1 v_price1 number;--最近价格1 v_data2 date; v_price2 number; v_data3 date; v_price3 number; i number:=1; cursor cur is select a.m_code from tb_material a,tb_m_price b where a.m_code=b.m_code group by a.m_code; begin open cur; loop fetch cur into v_id; exit when cur% NOTFOUND; dbms_output.put_line(v_id); <<jloop>> for rect in (select a.m_code,a.m_name,b.price_date,b.price from tb_material a,tb_m_price b where a.m_code=b.m_code order by b.price_date desc) loop dbms_output.put_line(rect.m_code||'aaaa '||rect.m_name ||'i'||i); if v_id=rect.m_code then v_wl:=rect.m_name; if i=1 then v_data1:=rect.price_date; v_price1:=rect.price; end if; if i=2 then v_data2:=rect.price_date; v_price2:=rect.price; end if; if i=3 then v_data3:=rect.price_date; v_price3:=rect.price; end if; i:=i+1; end if; EXIT jloop when i = 4; end loop jloop; dbms_output.put_line(v_id || v_wl ||v_data1||v_price1||v_data2||v_price2||v_data3||v_price3); insert into tb1 values(v_id , v_wl ,v_data1,v_price1,v_data2,v_price2,v_data3,v_price3); v_data1:=null; v_price1:=null; v_data2:=null; v_price2:=null; v_data3:=null; v_price3:=null; i :=1; end loop; close cur;end;SQL> select * from tb1; V_ID V_WL V_DATA1 V_PRICE1 V_DATA2 V_PRICE2 V_DATA3 V_PRICE3---- ------ -------- --------- --------- ------- ----------- -------- 1 物料1 2012-4-6 110 2012-3-5 107 2012-2-4 105 2 物料2 2012-4-6 310 2012-3-5 337 2012-2-4 205
