每个记录ID都是唯一的,一个父键 指定该节点从属于那个节点ID假设父键-1是顶层节点。 sub createtree(byval pid as long, byval pnode as treenode) dim i as integer dim myconn as new oledbconnection(connstr) myconn.open()
dim mycomm as new oledbcommand( "select * from datacenter where 父键=@pid ", myconn) mycomm.parameters.clear() mycomm.parameters.add( "pid ", pid) dim dr as oledbdatareader dr = mycomm.executereader pnode.nodes.clear() i = 0 do while dr.read pnode.nodes.add(dr.item( "标题 ")) createtree(pnode.nodes(i),dr.item( "id ")) i = i + 1 loop
dr.close()
myconn.close()
end sub
防g 可利尿剂怒江后
使用程序设计来做……