2.8w+
社区成员
- 主页
目录树,根据一个节点,如何找到下面所有的子节点?
access数据库里tree7表里就这2个字段：nameid,prentid(父)
做一个提交表单框，在这个框里输入要复制的任何节点nameid,提交后，把该节点下的所有子节点都复制到另外一个数据表tree8里.
1。该节点下的所有子节点怎么找出来？ (递归?如何递归啊..还要循环,头大...)
急用。！
http://topic.csdn.net/u/20090805/10/e6c16527-73e0-4421-88fe-f143bc3ae8a5.html?34711(分数一起奉上..)
做一个提交表单框，在这个框里输入要复制的任何节点nameid,提交后，把该节点下的所有子节点都复制到另外一个数据表tree8里.
1。该节点下的所有子节点怎么找出来？ (递归?如何递归啊..还要循环,头大...)
急用。！
http://topic.csdn.net/u/20090805/10/e6c16527-73e0-4421-88fe-f143bc3ae8a5.html?34711(分数一起奉上..)
...全文
请发表友善的回复…
发表回复
lzp4881 2009-08-08
[Quote=引用 4 楼 yihunnanzi 的回复:]
目录树有的很多层,不是一层.lzp4881兄提供的好像是只能显示一层代码.
比如: CHina下面分 北京,上海,天津,重庆 ;
北京下面分 昌平,朝阳,大兴,丰台,怀柔等..
昌平下面分 XX1,xx2,xx3,xx4,xx5,xx6,xx7,xx8
xx1下面分 ........
如果输入China,则把China下面的所有子节点(北京,上海,天津,重庆等下面所有的子节点)都复制到tree8表里.(China也一起复制过去.)
[/Quote]
你测试了没有哦就这样说，我的代码我是测试过的，下面多少层都可以。
目录树有的很多层,不是一层.lzp4881兄提供的好像是只能显示一层代码.
比如: CHina下面分 北京,上海,天津,重庆 ;
北京下面分 昌平,朝阳,大兴,丰台,怀柔等..
昌平下面分 XX1,xx2,xx3,xx4,xx5,xx6,xx7,xx8
xx1下面分 ........
如果输入China,则把China下面的所有子节点(北京,上海,天津,重庆等下面所有的子节点)都复制到tree8表里.(China也一起复制过去.)
[/Quote]
你测试了没有哦就这样说，我的代码我是测试过的，下面多少层都可以。
yihunnanzi 2009-08-08
目录树有的很多层,不是一层.lzp4881兄提供的好像是只能显示一层代码.
比如: CHina 下面分 北京,上海,天津,重庆 ;
北京下面分 昌平,朝阳,大兴,丰台,怀柔等..
昌平下面分 XX1,xx2,xx3,xx4,xx5,xx6,xx7,xx8
xx1下面分 ........
如果输入China,则把China下面的所有子节点(北京,上海,天津,重庆等下面所有的子节点)都复制到tree8表里.(China也一起复制过去.)
比如: CHina 下面分 北京,上海,天津,重庆 ;
北京下面分 昌平,朝阳,大兴,丰台,怀柔等..
昌平下面分 XX1,xx2,xx3,xx4,xx5,xx6,xx7,xx8
xx1下面分 ........
如果输入China,则把China下面的所有子节点(北京,上海,天津,重庆等下面所有的子节点)都复制到tree8表里.(China也一起复制过去.)
lzp4881 2009-08-08
再精简一下
<!--#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 "导出成功"
%>
lzp4881 2009-08-08
<!--#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 "导出成功"
%>
<%
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 "导出成功"
%>
cuixiping 2009-08-08
递归
sub xcopy(pid)
copy pid
for each childId in pid
call xcopy(childId)
next
end sub
sub xcopy(pid)
copy pid
for each childId in pid
call xcopy(childId)
next
end sub