BOM數據排序及分級顯示

BOM數據排序及分級顯示

MILY: " BACKGROUND-COLOR: #ddedfb; Verdana: ; quot: ; Courier: ; mono: ">--示例數據:
CREATE TABLE BomSub(Parent_item varchar(10),Sub_item varchar(10))
INSERT BomSub SELECT 'A'  ,'AA'
UNION  ALL    SELECT 'A'  ,'AB'
UNION  ALL    SELECT 'AA' ,'AAA'
UNION  ALL    SELECT 'AA' ,'AAB'
GO

問題描述:
    Parent_item是父項，Sub_item是子項，根據根據父子關系排序，并生成每個項目的層次。對于示例數據，要求結果如下：
Parent_item  LEVEL
----------- -------
A           0
|-AA        1
|--AAA      2
|--AAB      2
|-AB        1

（所影響的行數為 5 行）

--查詢處理的存儲過程
CREATE PROC P_QRY
AS
DECLARE @t TABLE(Parent_item varchar(10),Level int,Path varchar(8000))
DECLARE @l int
SET @l=0
INSERT @t SELECT DISTINCT Parent_item,@l,RIGHT(SPACE(20)+Parent_item,20)
FROM BomSub a
WHERE NOT EXISTS(
    SELECT * FROM BomSub WHERE Sub_item=a.Parent_item)
WHILE @@ROWCOUNT>0
BEGIN
    SET @l=@l+1
    INSERT @t SELECT a.Sub_item,@l,b.Path+RIGHT(SPACE(20)+a.Sub_item,20)
    FROM BomSub a,@t b
    WHERE a.Parent_item=b.Parent_item AND b.Level=@l-1
END
SELECT Parent_item=CASE Level WHEN 0 THEN '' ELSE '|'+REPLICATE('-',Level) END+Parent_item,
    Level
FROM @t
ORDER BY Path
GO

--調用
EXEC P_QRY

原帖地址