对我来说，实在是太难的，希望各位大虾看一下，部门无级树的问题

Question

部门编码            部门名称           上级编码           级数
10000000     集团总部           ROOT                   1
10020000     营销中心           10000000             2
10020100     综合部               10020000             3
10020101     综合部事务室    10020100             4
要得到的结果是
部门编码            部门名称         上级编码                  新增列
10000000 集团总部         ROOT                    10000000
10020000 营销中心          10000000             10000000,10020000
10020100 综合部              10020000             10000000,10020000,10020100
10020101 综合部事务室      10020100            10000000,10020000,10020100,100201010
这样的效果要如何实现啊，请各位大虾指点，感谢！！！！

Answer 1

if OBJECT_ID('tempdb..#dept') is not null
  drop table #dept
create table #DEPT
(
  部门编码 varchar(20),
  部门名称 varchar(20),
  上级部门编码 varchar(20),
  级别 int
)
insert into #DEPT 
select '10000000','集团总部','ROOT' ,1 
union all
select '10020000','营销中心','10000000',2 
union all
select '10020100','综合部','10020000',3 
union all
select '10020101','综合部事务室','10020100',4 
union all
select '100201011','信息部','100201010' ,5select 部门编码,部门名称,上级部门编码,LEFT(XX,LEN(XX)-1)as paths
  FROM (
     SELECT 部门编码,部门名称,上级部门编码,
       (SELECT 上级部门编码+',' 
          FROM #DEPT 
          WHERE A.部门编码>=上级部门编码 
          ORDER BY 部门编码 FOR XML PATH('') 
        )AS XX
       FROM #DEPT A 
       GROUP BY 部门编码,部门名称,上级部门编码 
   )B

Answer 2

IF EXISTS (select OBJECT_ID('departments'))DROP TABLE departments
CREATE TABLE [dbo].[departments](
[部门编码] [sysname] NOT NULL,
[部门名称] [sysname] NOT NULL,
[上级编码] [sysname] NOT NULL,
[级数] [int] NULL
)INSERT INTO departments VALUES ('10000000','集团总部','ROOT',1)
INSERT INTO departments VALUES ('10020000','营销中心','10000000',2)
INSERT INTO departments VALUES ('10020100','综合部','10020000',3)
INSERT INTO departments VALUES ('10020101','综合部事务室','10020100',4)
SELECT 部门编码,
       部门名称,
       STUFF((SELECT ',' + 部门编码
               FROM   departments d1
               WHERE  d1.级数 <= d.级数 FOR XML PATH('')),1,1,'')
FROM   departments d

Answer 3

select '10000000' 部门编码    ,N'集团总部'   部门名称   ,     'ROOT'  上级编码         ,        1  级数 
into #t
union all
select '10020000'             ,N'营销中心'       ,    '10000000'      ,      2         union all
select '10020100'             ,N'综合部'         ,      '10020000'    ,         3     union all
select '10020101'             ,N'综合部事务室'   , '10020100'         ,    4 ;With t as
(
select 部门编码,部门名称,上级编码,上级编码 上级编码2 
from #t
union all
select a.部门编码,a.部门名称,a.上级编码,b.上级编码 上级编码2
from t a join #t b
on a.上级编码2=b.部门编码
)
select 部门编码,部门名称,上级编码
,STUFF((select ',' +(Case when 上级编码2='ROOT' then 部门编码 else 上级编码2 end)
  from t t2 where t1.部门编码=t2.部门编码 and t1.部门名称=t2.部门名称 and t1.上级编码=t2.上级编码
  for xml path('')
  ),1,1,'')
as 新增列
from t t1 --
group by 部门编码,部门名称,上级编码

Answer 4

create function [dbo].[BA_P_COMPANY]()
  returns @re table([id] int, [level] int, [sid] [varchar](6666))
as
begin
  declare @level int, @maxid int
  select @level = 0, @maxid = (select power(10, len(max([CID]))) from [BA_COMPANY])
  insert @re
  select [CID], @level, ComCode
    from [BA_COMPANY]
   where [PID] = 0

  while @@rowcount > 0
  begin
    set @level = @level + 1
    insert @re 
    select a.[CID], @level, b.[sid] + ',' + a.ComCode
      from [BA_COMPANY] a, @re b
     where a.[PID] = b.[id] and b.[level] = @level - 1
  end
  return
end

Answer 5

请问下4号楼的大stublue，为什么在我本机用数据比较多的情况下那列新增列出现了小小的问题。
10100 总经理室 101 101,1,10100
1010002 考核委员会 10100 10100,101,1,1010002
例：像上面这些，结果应该是10100 总经理室 101 1,101,10100
1010002 考核委员会 10100 1,101,10100,1010002就是说除了第二级是对的，其他顺序有问题，能否再帮忙解答下，非常感谢。

Answer 6

/*
标题：SQL SERVER 2000中查询指定节点及其所有父节点的函数(字符串形式显示)
作者：爱新觉罗·毓华(十八年风雨,守得冰山雪莲花开)  
时间：2010-02-02
地点：新疆乌鲁木齐
*/create table tb(id varchar(3) , pid varchar(3) , name varchar(10))
insert into tb values('001' , null  , '广东省')
insert into tb values('002' , '001' , '广州市')
insert into tb values('003' , '001' , '深圳市')
insert into tb values('004' , '002' , '天河区')
insert into tb values('005' , '003' , '罗湖区')
insert into tb values('006' , '003' , '福田区')
insert into tb values('007' , '003' , '宝安区')
insert into tb values('008' , '007' , '西乡镇')
insert into tb values('009' , '007' , '龙华镇')
insert into tb values('010' , '007' , '松岗镇')
go;with t as
(
    select id , name , pid = id , path = cast(name as nvarchar(100)) from tb 
    union all
    select t.id , t.name , pid = tb.pid , path = cast(tb.name as nvarchar(100)) from t join tb on tb.id = t.pid 
)
select id , 
       name ,
       [路径(从父到子)_1] = pid1, 
       [路径(从父到子)_2] = reverse(substring(reverse(path1) , charindex(',' , reverse(path1)) + 1 , len(path1))) ,
       [路径(从子到父)_1] = pid2,
       [路径(从子到父)_2] = substring(path2 , charindex(',' , path2) + 1 , len(path2)) from
(
select id , name ,
       pid1 = STUFF((SELECT ',' + pid FROM t WHERE id = tb.id order by t.id , t.pid FOR XML PATH('')) , 1 , 1 , ''),
       pid2 = STUFF((SELECT ',' + pid FROM t WHERE id = tb.id FOR XML PATH('')) , 1 , 1 , ''),
       path1 = STUFF((SELECT ',' + path FROM t WHERE id = tb.id order by t.id , t.pid FOR XML PATH('')) , 1 , 1 , ''),
       path2 = STUFF((SELECT ',' + path FROM t WHERE id = tb.id FOR XML PATH('')) , 1 , 1 , '')
from tb
group by id , name
) m
order by id
/*
id   name    路径(从父到子)_1  路径(从父到子)_2             路径(从子到父)_1  路径(从子到父)_2
---- ------  ----------------  ---------------------------  ----------------  ---------------------------
001  广东省  001               广东省                       001               广东省
002  广州市  001,002           广东省,广州市                002,001           广州市,广东省
003  深圳市  001,003           广东省,深圳市                003,001           深圳市,广东省
004  天河区  001,002,004       广东省,广州市,天河区         004,002,001       天河区,广州市,广东省
005  罗湖区  001,003,005       广东省,深圳市,罗湖区         005,003,001       罗湖区,深圳市,广东省
006  福田区  001,003,006       广东省,深圳市,福田区         006,003,001       福田区,深圳市,广东省
007  宝安区  001,003,007       广东省,深圳市,宝安区         007,003,001       宝安区,深圳市,广东省
008  西乡镇  001,003,007,008   广东省,深圳市,宝安区,西乡镇  008,007,003,001   西乡镇,宝安区,深圳市,广东省
009  龙华镇  001,003,007,009   广东省,深圳市,宝安区,龙华镇  009,007,003,001   龙华镇,宝安区,深圳市,广东省
010  松岗镇  001,003,007,010   广东省,深圳市,宝安区,松岗镇  010,007,003,001   松岗镇,宝安区,深圳市,广东省(10 行受影响)
*/drop table tb