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)
'移动到下一条
wend
end sub
private 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)
'移动到下一条
wend
end sub
数据库中的记录如何递归添加TreeView
最新推荐文章于 2021-02-03 08:58:03 发布