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

yihunnanzi 2009-08-08 12:32:18
access数据库里tree7表里就这2个字段:nameid,prentid(父)

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

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


急用。!


http://topic.csdn.net/u/20090805/10/e6c16527-73e0-4421-88fe-f143bc3ae8a5.html?34711(分数一起奉上..)
...全文
121 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
lzp4881 2009-08-08
  • 打赏
  • 举报
回复
[Quote=引用 4 楼 yihunnanzi 的回复:]
目录树有的很多层,不是一层.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也一起复制过去.)





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 "导出成功"
%>
cuixiping 2009-08-08
  • 打赏
  • 举报
回复
递归

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

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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