1 ALTER PROCEDURE [DBO].[GETBOMTREE](
 2     @UPCD  CHAR(25),
 3     @LEVEL  INT
 4 ) AS
 5 BEGIN
 6     SET NOCOUNT ON;
 7     DECLARE @FACCD CHAR(12), @UPPERCD CHAR(25),
 8     @SEQ INT,@LOWERCD CHAR(25),@NEWLEVEL INT;
 9
10     IF @LEVEL = 0
11     BEGIN
12         SET @LEVEL=1;
13     END
14
15     DECLARE BOM_CURSOR CURSOR LOCAL FOR   --注意是LOCAL游标
16 SELECT FAC_CD,UPPER_ CD,USE_SEQ,ISNULL(LOWER_ CD,'')
17         FROM T_BOM
18         WHERE UPPER_CD = @UPCD ;
19
20     OPEN BOM_CURSOR;
21
22     FETCH NEXT FROM BOM_CURSOR
23     INTO @FACCD,@UPPERCD,@SEQ,@LOWERCD ;
24
25     --
26     IF @@FETCH_STATUS <>0
27     BEGIN
28         CLOSE BOM_CURSOR;
29         DEALLOCATE BOM_CURSOR;
30
31         RETURN ;
32     END
33
34     --
35     WHILE @@FETCH_STATUS = 0
36     BEGIN
37         --插入数据进入临时表(实际为物理表，每次执行时删除该表数据，还要增加终端号或用户名区分多用户操作，这里省略)
38         INSERT INTO T_BOM_TMP(
39             FAC_CD,UPPER_CD,USE_SEQ,LOWER_CD,LEVEL
40         ) VALUES (
41             @FACCD,@UPPERCD,@SEQ,@LOWERCD,@LEVEL
42         );
43
44         --调用本身
45         SET @NEWLEVEL=@LEVEL + 1;
46         EXEC DBO.GETBOMTREE @LOWERCD,@NEWLEVEL;
47
48         FETCH NEXT FROM BOM_CURSOR
49             INTO @FACCD, @UPPERCD,@SEQ,@LOWERCD ;
50     END
51
52     CLOSE BOM_CURSOR;
53     DEALLOCATE BOM_CURSOR;
54 END

 1 WITH BOM_CTE AS
 2
 3 (
 4
 5     SELECT *,1 AS ILEVEL FROM T_BOM WHERE
 6
 7       FAC_CD   = 'FAC01' AND    --工厂代码
 8
 9       UPPER_CD = 'AAA'   --要查找的根节点
10
11     UNION ALL
12
13     SELECT P.*,D.ILEVEL + 1 AS ILEVEL
14
15     FROM T_BOM AS P
16
17        INNER JOIN BOM_CTE AS D ON
18
19            P.FAC_CD    = D.FAC_CD   AND
20
21            P.UPPER_CD = D.LOWER_CD
22
23 )
24
25 SELECT * FROM BOM_CTE

 1 --插入临时表数据
 2
 3   PROCEDURE INS_BOM_TMP(V_ROW_BOM T_BOM_TMP%ROWTYPE) IS  BEGIN
 4     INSERT INTO T_BOM_TMP VALUES V_ROW_BOM;
 5   END INS_BOM_TMP;
 6
 7  --主要递归过程
 8
 9 PROCEDURE GET_BOM(V_FAC_CD T_BOM.FAC_CD%TYPE,
10
11 V_UPPDER_CD T_BOM.UPPER_CD%TYPE,
12
13 LEVEL NUMBER(10,0)) IS
14
15 CURSOR V_BOM_CURSOR IS
16       SELECT * FROM T_BOM WHERE FAC_CD = V_FAC_CD AND UPPER_CD= V_UPPDER_CD;
17     V_CUR V_BOM_CURSOR%ROWTYPE;
18     V_ROW T_BOM_TMP%ROWTYPE;
19 BEGIN
20     FOR V_CUR IN V_BOM_CURSOR LOOP
21         V_ROW.FAC_CD           := V_CUR.FAC_CD;
22         V_ROW.UPPER_ITEM_CD    := V_CUR.UPPER_CD;
23         V_ROW.USE_SEQ          := V_CUR.USE_SEQ;
24
25     V_ROW.LOWER_ITEM_CD    := V_CUR.LOWER_CD;
26         V_ROW.LEVEL         := LEVEL;
27         INS_BOM_TMP (V_ROW);   --插入临时表
28
29 GET_BOM(V_FAC_CD, V_CUR.LOWER_CD, LEVEL+1);  --递归调用
30     END LOOP;
31 EXCEPTION
32     WHEN OTHERS THEN
33       --定义一个错误函数记录错误日志
34       WRITE_ERR_LOG(PACKAGE_ID,'GET_BOM', SQLERRM);
35 END GET_BOM;

SELECT FAC_CD,UPPER_CD,USE_SEQ,LOWER_CD,LEVEL  --LEVEL是关键字
FROM T_BOM
WHERE LEVEL <= 3 AND FAC_CD='FAC01'
START WITH UPPER_CD='AAA'   --根节点
CONNECT BY PRIOR LOWER_CD=UPPER_CD --从根到叶
--CONNECT BY  LOWER_CD=PRIOR UPPER_CD --从叶到根
ORDER SIBLINGS BY USE_SEQ   --子节点内部排序

 1 void Main()
 2
 3 {
 4
 5     var query=GetBom("AAA");
 6
 7      Console.WriteLine("Upper Code");
 8
 9      query.ToList().ForEach(q=>Console.WriteLine("{0}",q.UPPER_CD));
10
11 }
12
13
14
15 public IEnumerable<T_BOM> GetBom(string UpperCD)
16
17 {
18
19     var query = from b in T_BOM
20
21           where b.UPPER_CD  == UpperCD
22
23           select b;
24
25
26
27     return  query.ToList().Concat(query.ToList().SelectMany(t => GetBom(t.LOWER_CD)));
28
29 }

 1 void Main()
 2 {
 3     var query=GetBom("AAA");
 4      Console.WriteLine("Upper Code");
 5      query.ToList().ForEach(q=>Console.WriteLine("{0}",q.UPPER_CD));
 6 }
 7
 8 public IEnumerable<T_BOM> GetBom(string UpperCD)
 9 {
10     var list = (from b in T_BOM
11           where b.UPPER_CD  == UpperCD
12           select b).ToList();
13
14     return  list.Concat(list.SelectMany(t => GetBom(t.LOWER_CD)));
15 }

 1 Private Sub CreateBomTree(dtBom As DataTable, tnParent As Windows.Forms.TreeNode)
 2     Dim tnChild As System.Windows.Forms.TreeNode
 3     Dim iLevel As Int16 = 1         '层号
 4     For Each dr As DataRow In dtBom.Rows
 5         tnChild = New Windows.Forms.TreeNode
 6         tnChild.Name = dr("LOWER_CD").ToString().Trim()
 7         tnChild.Text = dr("USE_SEQ") & " " & dr("LOWER_DESC").ToString().Trim()
 8         If dr("LEVEL") = iLevel Then
 9             tnParent.Nodes.Add(tnChild)
10         ElseIf dr("LEVEL") > iLevel Then
11             iLevel = dr("LEVEL")
12             tnParent = tnParent.LastNode
13             tnParent.Nodes.Add(tnChild)
14         Else
15             For i As Int16 = dr("LEVEL") To iLevel - 1
16                 tnParent = tnParent.Parent
17             Next
18
19             iLevel = dr("LEVEL")
20             tnParent.Nodes.Add(tnChild)
21         End If
22     Next
23 End Sub