求VB-TREEVIEW 结合数据库无限分类

何为无限分类?
如果你要实现树状结构的数据结构,首先数据库的设计应该这样:
1.表必须要具有节点ID,父节点ID之两个字段
2.根节点的父节点ID可以设置成为根节点的ID

如下所示:
节点ID      父节点ID      名称
----------------------------------------------
1      1      根节点
2      1      一级子节点1
3      1      一级子节点2
4      2      二级子节点1
5      2      二级子节点2
6      3      二级子节点3
7      3      二级子节点4

如果要将上表的数据显示到TreeView,可以采用递归函数调用的方法如下:
Function ListData(ByVal iID as Integer)
    '从数据库获取此iID所对应的行
     'SQL语句如:select * from table1 where 节点ID=iID
     '将此行数据显示到TreeView

     '从数据库获取以iID为父ID的行
     'SQL语句如:select * from table where 父节点ID=iID
     '循环调用ListData函数附带每一行数据的节点ID为参数来显示子节点的数据

    Call ListView(节点ID)
End Function