目录树,根据一个节点,如何找到下面所有的子节点?

[yihunnanzi]

access数据库里tree7表里就这2个字段：nameid,prentid(父)

做一个提交表单框，在这个框里输入要复制的任何节点nameid,提交后，把该节点下的所有子节点都复制到另外一个数据表tree8里.

1。该节点下的所有子节点怎么找出来？ (递归?如何递归啊..还要循环,头大...)


急用。！


http://topic.csdn.net/u/20090805/10/e6c16527-73e0-4421-88fe-f143bc3ae8a5.html?34711(分数一起奉上..)

[cuixiping]

递归

sub xcopy(pid)
copy pid
for each childId in pid
call xcopy(childId)
next
end sub

[lzp4881]

<!--#include file="conn.asp" -->
<%
dim nameid : nameid = request.form("nameid")

while nameid <> ""
set pa = conn.execute("select nameid,prentid from tree7 where prentid in ("&nameid&")")
if pa.eof and pa.bof then
nameid=""
else
nameid = ""
do while not pa.eof
nameid=nameid&pa("nameid")&","
conn.execute("insert into tree8 (nameid,prentid) values("&pa("nameid")&","&pa("prentid")&")")
pa.movenext
loop
if right(nameid,1)="," then nameid=left(nameid,len(nameid)-1)
end if
pa.close
set pa=nothing
wend
response.write "导出成功"
%>

[lzp4881]

再精简一下

<!--#include file="conn.asp" -->
<%
dim nameid : nameid = request.form("nameid")

while nameid <> ""
	set pa = conn.execute("select nameid,prentid from tree7 where prentid in ("&nameid&")")
	nameid=""
	do while not pa.eof
		nameid=nameid&pa("nameid")&","
		conn.execute("insert into tree8 (nameid,prentid) values("&pa("nameid")&","&pa("prentid")&")")
		pa.movenext
	loop
	if right(nameid,1)="," then nameid=left(nameid,len(nameid)-1)
	pa.close
	set pa=nothing
wend
response.write "导出成功"
%>

[yihunnanzi]

目录树有的很多层,不是一层.lzp4881兄提供的好像是只能显示一层代码.

比如: CHina 下面分 北京,上海,天津,重庆 ;

北京下面分 昌平,朝阳,大兴,丰台,怀柔等..

昌平下面分 XX1,xx2,xx3,xx4,xx5,xx6,xx7,xx8

xx1下面分 ........

如果输入China,则把China下面的所有子节点(北京,上海,天津,重庆等下面所有的子节点)都复制到tree8表里.(China也一起复制过去.)

[lzp4881]

[Quote=引用 4 楼 yihunnanzi 的回复:]
目录树有的很多层,不是一层.lzp4881兄提供的好像是只能显示一层代码.

比如:  CHina下面分 北京,上海,天津,重庆 ;

      北京下面分 昌平,朝阳,大兴,丰台,怀柔等..

      昌平下面分 XX1,xx2,xx3,xx4,xx5,xx6,xx7,xx8
 
      xx1下面分  ........

如果输入China,则把China下面的所有子节点(北京,上海,天津,重庆等下面所有的子节点)都复制到tree8表里.(China也一起复制过去.)



[/Quote]

你测试了没有哦就这样说，我的代码我是测试过的，下面多少层都可以。