复制代码代码如下所示：
功能gettreerootid（pnodeid）
getsql =选择note_id，parent_id从t_tree_demo }，{ note_id =pnodeid
集getrs =分贝。执行（getsql）
如果不getrs.eof然后
如果修剪（getrs（parent_id ））=0，然后
gettreerootid =装饰（getrs（note_id ））
退出功能
其他的
gettreerootid = gettreerootid（TRIM（getrs（parent_id)))))
最后如果
其他的
gettreerootid = 0
退出功能
最后如果
getrs.close
集getrs =没有
端功能