化解32层以上嵌套，树型结构的递归实现方法，给大家参考一下！

CrazyFor 2003-01-20 12:39:37
加精

前一镇，写了两个递归的树型结构处理函数：
http://expert.csdn.net/Expert/topic/1343/1343007.xml?temp=.730694

后来有朋友提出32层以上嵌套的一个展BOM的实例，没有办法用递归实现，特想了个办法，实现32层以上树型结构的递归方法。现在特将以前的那个函数进行了改进，具体如下：

---------------------------------表及函数脚本

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[TreeClass]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[TreeClass]
GO

CREATE TABLE [dbo].[TreeClass] (
[TC_id] [int] IDENTITY (1, 1) NOT NULL ,
[TC_PID] [int] NOT NULL ,
[TC_OtherTypeID] [varchar] (8000) COLLATE Chinese_PRC_CI_AS NULL ,
[TC_Name] [varchar] (50) COLLATE Chinese_PRC_CI_AS NOT NULL
) ON [PRIMARY]
GO

ALTER TABLE [dbo].[TreeClass] WITH NOCHECK ADD
CONSTRAINT [PK_TreeClass] PRIMARY KEY CLUSTERED
(
[TC_id]
) ON [PRIMARY]
GO


if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[FN_32GetSubClass]') and xtype in (N'FN', N'IF', N'TF'))
drop function [dbo].[FN_32GetSubClass]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[FN_32GetTopClass]') and xtype in (N'FN', N'IF', N'TF'))
drop function [dbo].[FN_32GetTopClass]
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
GO

CREATE FUNCTION FN_32GetSubClass (@InputId int,@IdStr varchar(8000)='',@LevelCount int=-1)
/*
参数： @InputId，被搜索子类的ID
@IdStr，一个特殊参数，用于在递归中传数据，注意：调用函数时一定要传入‘’空值
@LevelCount 用于判断是不是递归调用的开始层
*/
RETURNS Varchar(8000)
AS
BEGIN

Declare @TC_ID int,@TC_PID int,@StartLevel int,@Id32 int

if @LevelCount=-1
begin
set @StartLevel=@@NESTLEVEL
set @LevelCount=@StartLevel
end
else
set @StartLevel=-1


If @IdStr='' Set @IdStr=''''+cast(@InputId as varchar)+''''

DECLARE TreeClass CURSOR local FOR --定义游标
SELECT TC_Id,TC_PID
FROM TreeClass
where TC_PID=@InputId

OPEN TreeClass
FETCH NEXT FROM TreeClass
INTO @TC_ID,@TC_PID

WHILE @@FETCH_STATUS = 0 --循环游标，即循环当前类的弟一级子类
BEGIN
select @IdStr=@IdStr+','+''''+cast(@tC_ID as varchar)+''''

if @@NESTLEVEL<32
set @IdStr=dbo.FN_32GetSubClass (@TC_ID,@IdStr,@LevelCount) --递归，自己调用自己。
else
set @IdStr='['+cast(@tC_ID as varchar)+']'+@IdStr


FETCH NEXT FROM TreeClass
INTO @tC_ID,@TC_PID

End

CLOSE TreeClass
DEALLOCATE TreeClass

while @StartLevel=@@NESTLEVEL and charindex(']',@IdStr)>0
begin
set @Id32=substring(@IdStr,2,charindex(']',@IdStr)-2)
set @IdStr=dbo.FN_32GetSubClass (@Id32,@IdStr,@LevelCount)
set @IdStr=replace(@IdStr,'['+cast(@Id32 as varchar)+']','')
end

Return @IdStr

END












GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
GO

CREATE FUNCTION FN_32GetTopClass (@InputId int,@IdStr varchar(8000)='',@type int=0,@LevelCount int=-1)

RETURNS Varchar(8000)
AS
BEGIN

Declare @TC_ID int,@TC_PID int,@StartLevel int,@Id32 int


if @LevelCount=-1
begin
set @StartLevel=@@NESTLEVEL
set @LevelCount=@StartLevel
end
else
set @StartLevel=-1

DECLARE TreeClass CURSOR local FOR
SELECT TC_Id,TC_PID
FROM TreeClass
where TC_ID=@InputId

OPEN TreeClass
FETCH NEXT FROM TreeClass
INTO @TC_ID,@TC_PID

WHILE @@FETCH_STATUS = 0
BEGIN
if @type=1
begin
if @IdStr<>'' select @IdStr=','+@IdStr
select @IdStr=''''+cast(@tC_ID as varchar)+''''+@IdStr
end
else
if @TC_PID=0 select @IdStr=cast(@tC_ID as varchar)

if @@NESTLEVEL<32
select @IdStr=dbo.FN_32GetTopClass (@TC_PID,@IdStr,@type,@LevelCount)
else
set @IdStr=@IdStr+'['+cast(@tC_ID as varchar)+']'


FETCH NEXT FROM TreeClass
INTO @tC_ID,@TC_PID

End

CLOSE TreeClass
DEALLOCATE TreeClass

while @StartLevel=@@NESTLEVEL and charindex(']',@IdStr)>0
begin
set @Id32=substring(@IdStr,charindex('[',@Idstr)+1,charindex(']',@IdStr)-1-charindex('[',@Idstr))
set @IdStr=dbo.FN_32GetTopClass (@Id32,@IdStr,@type,@LevelCount)
set @IdStr=replace(@IdStr,'['+cast(@Id32 as varchar)+']','')
end

Return @IdStr

END







GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

--------------------------例子表数据，将下面数据写入TXT文档，DTS导入。

TC_id,TC_PID,TC_OtherTypeID,TC_Name
1,0,,宇宙
2,1,,银河系
3,2,,太阳系
4,3,,地球
5,4,,亚洲
6,5,,中国
7,6,,省
8,7,,江苏
9,8,,苏州
10,9,,公园
11,10,,苏州乐园
12,11,,山
13,12,,石头
14,13,,树
15,14,,枝
17,15,,叶
18,17,,虫
21,18,,眼睛
22,21,,眼球
24,22,,泪
25,24,,水
26,25,,氧
28,26,,A
30,28,,B
31,30,,C
32,31,,D
33,32,,E
34,33,,F
35,34,,G
36,35,,H
37,36,,I
38,37,,L
39,38,,M
40,39,,N
41,40,,O
42,41,,P
43,42,,Q
44,43,,R
45,44,,S
46,45,,T
47,46,,U
48,47,,V
49,48,,W
50,49,,X
51,50,,Y
52,51,,Z
53,52,,a
54,53,,b
55,54,,c
56,55,,d
57,56,,e
58,57,,f
59,58,,g
60,59,,h
61,60,,i
62,61,,j
63,62,,k
64,63,,l
65,64,3,m
66,65,,n
67,66,,o
68,67,,p
69,68,,q
70,69,,r
71,70,,s
72,71,,t
73,72,,u
74,73,,v
75,74,,w
76,75,,x
77,76,,y
78,77,,z


---------------------------应用实例
--得到ID为1的所有下层类别ID串
declare @aa varchar(8000)
set @aa=dbo.FN_32GetSubClass(1,default,default)
print @aa


--查询ID为1的所有下层记录

declare @aa varchar(8000)
set @aa=dbo.FN_32GetSubClass(1,default,default)
print @aa
exec('SELECT * from treeclass where TC_id in ('+ @aa +')')

方法二，
select * from treeclass where charindex(''''+cast(TC_id as varchar)+'''',dbo.fn_32getsubclass(1,default,default))>0

方法二有一个问题，在我这边运行非常的慢，不知道为什么，有没有高手解释一下，谢谢！！


--得到ID为78顶层ID

declare @aa varchar(8000)
set @aa=dbo.fn_32gettopclass(78,default,default,default)
print @aa


--得到提供ID：78所在枝的所有ID
declare @aa varchar(8000)
set @aa=dbo.FN_32GetSubClass(dbo.fn_32gettopclass(78,default,default,default),default,default)
print @aa



--得到当前ID到顶层的ID串
declare @aa varchar(8000)
set @aa=dbo.fn_32gettopclass(78,default,1,default)
print @aa


---按照树顺序排序，
select * from treeclass order by dbo.fn_gettopclass(tc_id,'',1)
原来的函数可以实现，现在的函数不行，因为32以后的ID不是连续的在返回结果中，现在是，先得到所有32层以前的，再逐个处理超过32层的分枝，所以需要这个功能的话需要适当修改函数，当然我想是很容易实现的。

...全文
313 28 打赏 收藏 转发到动态 举报
写回复
用AI写文章
28 条回复
切换为时间正序
请发表友善的回复…
发表回复
eastpond 2003-08-26
  • 打赏
  • 举报
 回复
收藏
laker_tmj 2003-08-21
  • 打赏
  • 举报
 回复
up
MAGXJ500T 2003-08-11
  • 打赏
  • 举报
 回复
一个问题：

如果返回的ID数量较多，超过8000怎么办？
nik_Amis 2003-06-02
  • 打赏
  • 举报
 回复
super up
happyforevery 2003-05-24
  • 打赏
  • 举报
 回复
mark
jin888888 2003-05-14
  • 打赏
  • 举报
 回复
收藏！好动动
zeng_zhh 2003-02-28
  • 打赏
  • 举报
 回复
我作個標記.好東東.
CrazyFor 2003-02-20
  • 打赏
  • 举报
 回复
更新：

CREATE FUNCTION FN_32GetTopClass (@InputId int,@IdStr varchar(8000)='',@type int=0,@LevelCount int=-1)
/*
@Type= 0:得到顶层ID
1:得到当前到顶层的串
2:排序时使用
*/

RETURNS Varchar(8000)
AS
BEGIN

Declare @TC_ID int,@TC_PID int,@StartLevel int,@Id32 int,@OrderStr varchar(10)


if @LevelCount=-1
begin
set @StartLevel=@@NESTLEVEL
set @LevelCount=@StartLevel
end
else
set @StartLevel=-1

DECLARE TreeClass CURSOR local FOR
SELECT TC_Id,TC_PID
FROM TreeClass
where TC_ID=@InputId

OPEN TreeClass
FETCH NEXT FROM TreeClass
INTO @TC_ID,@TC_PID

WHILE @@FETCH_STATUS = 0
BEGIN

if @type=1 or @type=2
begin
if @type=2 set @OrderStr='0000000000' else set @OrderStr=''
if @IdStr<>'' select @IdStr=','+@IdStr
select @IdStr=''''+right(@OrderStr+cast(@tC_ID as varchar),10)+''''+@IdStr
end
else
if @TC_PID=0 select @IdStr=cast(@tC_ID as varchar)

if @@NESTLEVEL<32
select @IdStr=dbo.FN_32GetTopClass (@TC_PID,@IdStr,@type,@LevelCount)
else
set @IdStr=@IdStr+'['+cast(@tC_ID as varchar)+']'


FETCH NEXT FROM TreeClass
INTO @tC_ID,@TC_PID

End

CLOSE TreeClass
DEALLOCATE TreeClass

while @StartLevel=@@NESTLEVEL and charindex(']',@IdStr)>0
begin
set @Id32=substring(@IdStr,charindex('[',@Idstr)+1,charindex(']',@IdStr)-1-charindex('[',@Idstr))
set @IdStr=dbo.FN_32GetTopClass (@Id32,@IdStr,@type,@LevelCount)
set @IdStr=replace(@IdStr,'['+cast(@Id32 as varchar)+']','')
end

Return @IdStr

END






CrazyFor 2003-01-23
  • 打赏
  • 举报
 回复
---按照树顺序排序方法


select *,dbo.fn_32gettopclass(Tc_id,default,1,default) from treeclass order by dbo.fn_32gettopclass(Tc_id,default,1,default)
蓝天 2003-01-21
  • 打赏
  • 举报
 回复
create table new_tree ( parent varchar(80), child varchar(80),weight int)
go
insert new_tree values ( '1','2',3);
insert new_tree values ( '1','3',4);
insert new_tree values ( '2','4',3);
insert new_tree values ( '2','5',5);
insert new_tree values ( '3','6',7);
insert new_tree values ( '3','7',3);
insert new_tree values ( '3','8',2);
insert new_tree values ( '6','9',1);
insert new_tree values ( '5','10',4);
insert new_tree values ( '4','11',3);
insert new_tree values ( '9','12',7);
insert new_tree values ( '7',NULL,1);
insert new_tree values ( '8',NULL,4);
insert new_tree values ( '10',NULL,3);
insert new_tree values ( '11',NULL,3);
insert new_tree values ( '12',NULL,7);

广度优先：
create proc proc_new_tree (@parent varchar(80),@mode int =0)
as

begin
set nocount on
declare @level int
declare @tmp1 table ( parent varchar(80), child varchar(80),level int)
select @level =1
insert @tmp1 select parent,child,@level from new_tree where parent = @parent
while exists(select * from @tmp1 where child is not NULL and level=@level)
begin
insert @tmp1 select a.parent,a.child ,@level+1 from new_tree a,@tmp1 b where a.parent = b.child and b.level=@level
select @level=@level +1
end
if @mode =0 select * from @tmp1
else select * from @tmp1 where child is null
set nocount off
end
go

深度优先：
create proc proc__tree (@parent char(20))
as
begin
set nocount on
declare @level int ,@i int ,@flag int
declare @stack table (parent char(20),child char(20),level int,row int , flag int)
select @level = 1,@i=1,@flag=1
insert @stack select parent,child, @level,0,1 from new_tree where parent = @parent and child is not null

while @level > 0
begin
if exists (select * from @stack where level = @level and flag=1)
begin
select @parent = min(child) from @stack where level = @level and flag=1
update @stack set flag =0 , row=@i where level = @level and child = @parent and flag =1
select @i = @i +1
insert @stack select parent,child, @level + 1,0,1 from new_tree where parent = @parent and child is not null
if @@rowcount > 0
select @level = @level + 1
end
else
begin
select @level = @level - 1
end
end
select row,parent ,child,level from @stack order by row
set nocount off
end
go
proc__tree '1'
CrazyFor 2003-01-21
  • 打赏
  • 举报
 回复
不知道其它人有没有更好的办法，拿出来给大家参考一下吧。：）
CrazyFor 2003-01-21
  • 打赏
  • 举报
 回复
这个问题我也想过好久，要不把数据写入XML中再处理，要不然就是用JS来做，还有就是点一个加号就刷新一下窗体。
springgwn 2003-01-21
  • 打赏
  • 举报
 回复
我用在web程序中，需要在网页上显示，希望能得到您的帮助！
j9988 2003-01-21
  • 打赏
  • 举报
 回复
MARK!
CrazyFor 2003-01-21
  • 打赏
  • 举报
 回复
springgwn()

你是用在什么地方？应该程序中吗？
xlhl 2003-01-21
  • 打赏
  • 举报
 回复
收藏!!
昵称被占用了 2003-01-21
  • 打赏
  • 举报
 回复
好动动，收藏！
leimin 2003-01-20
  • 打赏
  • 举报
 回复
收藏先，下午有时间在看。
springgwn 2003-01-20
  • 打赏
  • 举报
 回复
第二种。谢谢！！
CrazyFor 2003-01-20
  • 打赏
  • 举报
 回复
你是要哪样的树图?
1,
地球
|_______________
| | |
亚洲 非洲 美洲
|____
| |
中国 日本
|____
| |
省 自治区

2
-地坏
+非洲
-亚洲
-中国
+省
+自治区
+日本
+美洲
加载更多回复（8）
【数据结构与算法】第二篇：算法部分
系列文章目录 提示：这里可以添加系列文章的所有文章的目录，目录需要自己手动添加 TODO:写完再整理 文章目录系列文章目录前言一、程序的时间和空间复杂度分析（1）理解算法时间复杂度的表示法（2）线性复杂度的分析（3）递归复杂度的分析（4）各种数据结构的时间复杂度二、顺序、条件、循环基本结构三、位运算（1）总的运算符（2）位运算的应用四、字符串算法（1）字符串的定义（2）字符串的比较（3）注意五、数组的排序算法（1）各种算法的时间\空间复杂度比较（2）比较类排序（常用）（1）交换排序1）冒泡排序（重要）2）
23种计模式之Python/Go实现
设计模式是面对各种问题进行提炼和抽象而形成的解决方案。这些设计方案是前人不断试验，考虑了封装性、复用性、效率、可修改、可移植等各种因素的高度总结。它不限于一种特定的语言，它是一种解决问题的思想和方法。由于高级语言的出现，让机器读懂你的意图已经不是最主要的“矛盾”，而让人读懂你的意图才是最重要。按照设计模式编写的代码，其可读性也会大大提升，利于团队项目的继承和扩展。设计模式可以分为三个大类：创建类设计模式、结构类设计模式、行为类设计模式下面用一个图片来整体描述一下设计模式之间的关系：单例模式、工厂模式（简单工
设计模式
基础 1、抽象 父类为子类提供一些属性和行为，子类根据业务需求实现具体的行为。 抽象类使用abstract进行修饰，子类要实现所有的父类抽象方法否则子类也是抽象类。 2、封装 把对象的属性和行为（方法）结合为一个独立的整体，并尽可能隐藏对象的内部实现细节； 在java中，对于对象的内部属性一般用private来实现隐藏，并通过set和get方法对外提供访问接口。 3、继承 子类继承父类的属性和行为...
java 设计模式
java 的设计模式大体上分为三大类： 创建型模式（5种）：工厂方法模式，抽象工厂模式，单例模式，建造者模式，原型模式。 结构型模式（7种）：适配器模式，装饰器模式，代理模式，外观模式，桥接模式，组合模式，享元模式。 行为型模式（11种）：策略模式、模板方法模式、观察者模式、迭代子模式、责任链模式、命令模式、备忘录模式、状态模式、访问者模式、中介者模式、解释器模式。 设计模式遵循的原则有6个： 1、开闭原则（Open Close Principle） 对扩展开放，对修改关闭。 2、里氏代换原则（Lisk
两万字长文-设计模式总结
设计模式总结 战术总结   从开始学设计模式到现在，算是学了两遍，但是这玩意怎么说呢，不是说学了就能会的那种，是需要经过一段时间的沉淀和积累的，有条件的话最好能直接上生产，但是需要注意项目的风险性接受程度；    一般来说，从项目的迭代之初，这个时间点是最考验我们的设计、架构思维的，如果在这个阶段你能有机会去参与到 代码规范审查、代码结构设计，那请收起你那不要钱的面子，这个时候就是你展现自己装逼实力的时候，往上奥力给，其实这个阶段如果你已经具备丰富的业务能力+你拥有较为丰富的架构思维，你可以自己尝试通过各
疑难问题

22,209

社区成员

121,730

社区内容

发帖
与我相关
我的任务
社区描述
MS-SQL Server 疑难问题
社区管理员
  • 疑难问题社区
  • 尘觉
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章