关于递归中的问题
表名:tbtest
id parid
10001 10000
10002 10000
10003 10001
10004 10001
10005 10004
10006 10004
10007 10006
10008 10006
10009 10006
10010 10004
10011 10004
10012 10000
10013 10012
10014 10013
10015 10013
10016 10013
id=10000
function tree(id)
set rs=new adodb.recordset
sql="select * from tbtset where parid=" & id
rs.open sql,cn,1,1
while not rs.eof
call tree(rs("id"))
rs.movenext
wend
end function
当做到id=10001,再调用call tree(10001)来但到 parid=10001的记录时
程序会再次调用tree(id)这个function 并且会建rs对象,当循环结束后,rs.eof=true
跳出回到上一循环继续执行时报错,提示rs已经为eof,可是我在做select * from tbtset where parid=10000时才下移了一条记录啊,只递归调用的tree(id)中的rs到底了啊,此程序在ASP中是正常的,但在VB中就报上面的错,不知道是什么原因,请高手指点一下。