楼主，你好，谢谢你的解答，但是你误解了我的意思，也许是我没有说清楚吧！
我的根结点和子结点的值都在一个表中，并且根结点和子结点都可以随意的动态增加，
数据库结构如：
node_id node_name node_per node_child node_sort
node_per和node_child是布尔值，可以判断是否是根结点或子结点
如果是子结点可以通过node_sort（指定根结点的名称）字段来分类过滤
表的记录是动态的增加的，根结点也可能增加，每次启动窗体要子结点都要分类加载

Private Sub frmDepManage_Load(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Dim db As DataBase = New DataBase
Dim strSQL As String
strSQL = "select * from 组织机构编码表 order by absIndex"
dvList = db.RunSelectSQL(strSQL)
db.Dispose()
'初始化TreeView控件的各个节点
InitTree(trvList.Nodes, "-1")
End Sub
'InitTree是用递归方法初始化TreeView控件的节点
Private Sub InitTree(ByRef nodes As TreeNodeCollection, _
ByVal sParentIndex As String)
Try
Dim tmpNode As TreeNode
Dim absIndex As String
Dim dvTemp As DataView = dvList.Table.DefaultView
'选出数据源中ParentIndex为sParentIndex数据行
Dim dataRows() As DataRow = _
dvList.Table.Select("ParentIndex = '" + sParentIndex + "'")
'循环添加TreeNode
For Each dr As DataRow In dataRows
'获得节点所需数据
tmpNode = New TreeNode
tmpNode.Text = dr("类别")
'用TreeNode的Tag属性保存与此节点相关的数据
tmpNode.Tag = CType(New TreeNodeData(dr("AbsIndex"), _
dr("ItemIndex"), dr("ItemLevel"), _
dr("ParentIndex"), dr("类别号"), dr("单位编号")), Object)
absIndex = dr("AbsIndex")
'添加节点
nodes.Add(tmpNode)
'递归调用
InitTree(nodes(nodes.Count - 1).Nodes, absIndex)
Next
Catch ex As Exception
MessageBox.Show("初始化TreeView失败")
End Try
End Sub
这个方法可以子接点和根接点都用数据库里来调用!~你是这个意思吗?关键在于表的关系 要做好

我还没学到数据库的连接,所以很多问题还解决不了,不过依然感谢你的程序
我会好好利用的

楼主,我下了你的东东,可是里面的数据库表怎么打不开啊,
另外我调试图书管理系统时也老是出错,我这个菜鸟又不知道自己哪里没弄好,

很棒，我以后有问题也向你请教，能帮我吗？

我下了你的图书管理系统，登录不了，请给我数据库吧，谢谢。

大家使用前务必先附加.mdf的数据库文件.另外,数据库是sql2000的.没安装sql2000server的都不能使用系统,请安装后使用
不然无法登陆就是很正常的现象@!!~~

支持！！我刚好要做这个程序。。

非常感谢~！
正在研究中
暂无问题~！

版主
“先附加.mdf的数据库文件”
怎么做啊？？？
谢了先

呵呵，谢谢，版主，偶带走了一份