数据库中的记录如何递归添加TreeView

private sub startAdd(treeview tv) dim s as string dim root as Node '在这里先可以创建一个根节点  set root=tv.nodes.add(,,key,"这是根节点") root.expand s="select *from tab where parentid='0'" '进行数据库查询 while(条件成立)  tv.nodes.aa(root,tvchild,key,text)  RecurrenceFun(tv,key)  '移动到下一条 wendend subprivate sub RecurrenceFun(treeview tv,node PNode,int Pid) dim s as string  dim Node as Node s="select *from tab where parentid=' + Pid + '" '进行数据库查询 while(条件成立)  set Node=tv.nodes.aa(PNode,tvchild,key,text)  RecurrenceFun(treeview tv,node,int Pid)  '移动到下一条 wendend sub