关于父子结构表的两种操作

现有一父子结构的表（DimProblemType），如下所示：

物理字段名	逻辑字段名	数据类型
ProblemCode	问题编码	int
ProblemParentCode	父问题编码	int
ProblemName	问题名称	nvarchar(50)

数据如下所示：

ProblemCode	ProblemParentCode	ProblemName
1		A
2	1	B
3	1	C
4	1	D
5	2	E
6	3	F
7	4	G
8	5	H
9	6	I
10	8	J

1、给定一结点，选出所有的子结点
如要显示ProblemCode为3的结点以及它的所有子结点，首创建一表值函数uf_GetSubNode，其函数代码如下：

CREATE FUNCTION [OLAP].[uf_GetSubNode]
(
   @problemCode int,      -- 问题编码
   @isLeaf int            -- 是否只返回父结点
)
RETURNS @ProblemCodeTable TABLE
(
   [ProblemCode] int,
   [NodeLevel] int
)
AS
BEGIN
   DECLARE @level int
   SET @level = 1
 
   INSERT INTO @ProblemCodeTable 
   ([ProblemCode], [NodeLevel])
   SELECT @problemCode, @level
 
   WHILE (@@ROWCOUNT > 0) AND (@isLeaf = 0)
   BEGIN
      SET @level = @level + 1
  
      INSERT INTO @ProblemCodeTable
      ([ProblemCode], [NodeLevel])
      SELECT A.[ProblemCode], @level
      FROM [BaseInfo].[DimProblemType] AS A, @ProblemCodeTable AS B
      WHERE (B.[NodeLevel] = @level - 1) AND
         (A.[ProbleParentCode] = B.[ProblemCode])
   END
 
   RETURN
END

GO

SELECT * FROM [OLAP].[uf_GetSubNode](3, 0)

返回的结果如下：
3      1
6      2
9      3

2、给定一结点，生成出它所在的路径
如要显示ProblemCode为8的路径（A->B->E->H），首先创建一标量函数uf_GetPathString，其函数代码如下：

CREATE FUNCTION [OLAP].[uf_GetPathString]
(
   @problemCode int,     -- 问题分类编码
   @sign nvarchar(100)   -- 各问题分类名称之间的分隔符
)
RETURNS nvarchar(4000)
AS
BEGIN
   DECLARE @pathString nvarchar(4000)
   
   SELECT @problemCode = [ProblemParentCode], @pathString = [ProblemName] 
   FROM [BaseInfo].[DimProblemType]
   WHERE [ProblemCode] = @problemCode

   WHILE @problemCode IS NOT NULL
   BEGIN
      DECLARE @temp nvarchar(200)
  
      SELECT @problemCode = [ProblemParentCode], @temp = [ProblemName] 
      FROM [BaseInfo].[DimProblemType]
      WHERE [ProblemCode] = @problemCode

      SET @pathString = @temp + @sign + @pathString
   END
 
   RETURN @pathString
END

GO

SELECT [OLAP].[uf_GetPathString](8, N'->')

返回的结果如下：
A->B->E->H