oracle存储过程实现

Question

  将QHOLELAYER表中（holecode， stratcode）作为关键码。即如果同一 
个钻孔在某个标准分层下有相同的stratcode，根据STRATNO将其进行区分，如： holecode  标准分层    stratcode 
CC031      1      Qp[3]{5-2} 3 
CC031      1      E[1]{1-2} 4 
CC031      1      E[1]{1-2} 5-1 
应该改为： 
CC031 1 Qp[3]{5-2} 3 
CC031 1 E[1]{1-2}-1 4 
CC031 1 E[1]{1-2}-2 5-1 下面是开始语句，在“循环判断更新语句”中如何实现 CREATE OR REPLACE  PROCEDURE UPDATELAYER  
is 
CURSOR v_qholelayer_cursor 
IS 
SELECT * FROM qholelayer ORDER BY holecode, topdepth FOR UPDATE; v_tmpHoleCode      qholelayer.holecode%TYPE; 
v_tmpStratcode      qholelayer.Stratcode%TYPE;  
v_tmpTopdepth      qholelayer.Topdepth%TYPE;        
v_tmpQholelayer    v_qholelayer_cursor%ROWTYPE; 
v_tmpOrder          number:= 1; begin 
OPEN    v_qholelayer_cursor;                 循环判断更新语句 
          
CLOSE v_qholelayer_cursor; 
COMMIT; 
end UPDATELAYER;

Answer 1

holecode  标准分层    stratcode        stratno 
CC031      1        Qp[3]{5-2}        3 
CC031      1        E[1]{1-2}          4 
CC031      1        E[1]{1-2}          5-1 
应该改为： 
holecode  标准分层    stratcode        stratno 
CC031    1          Qp[3]{5-2}        3 
CC031    1          E[1]{1-2}-1      4 
CC031    1          E[1]{1-2}-2      5-1 格式是这样的