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

原帖地址