treeView与数据库中的问题 tab id name jishu 1 系统部门 1 2 北京 2 3 上海 2 4 广州 2 5 北京朝阳 3 6 北京西城 3 7 广州深圳 3 8 广州东莞 3 在treeview中显示如下形式: 系统部门 ...北京 ...北京朝阳 ...北京西城 ...上海 ...广州 ...广州深圳 ...广州东莞 大体是这样显示出来的..... 要求表是在数据库中读取在treeView中显示... 表中的资料有许多(我只是写个简单的形式,还不知道表的建立是不是有问题,有问题望指教) 谢谢了,希望有相同的列题参考学习.. __________________________________________________________________________ Sub traverse(ByVal a As TreeNodeCollection) Dim myNode As TreeNode Dim Addnode As New TreeNode Dim i As Integer For Each myNode In a MsgBox(nd.Text) MsgBox(nd.p) nd.Nodes.g() If myNode.Tag = TextBox4.Text Then TreeView1.SelectedNode = myNode Addnode.Tag = i addnode.Text = 新建项目 myNode.Nodes.Add(addnode) myNode.Expand() Exit For End If traverse(myNode.Nodes) Next End Sub 楼主体会吧，很好的，我想了好几天的代码 __________________________________________________________________________ 看看如下代码。 首先将数据读入DataSet.Table( tab )。代码省略。 For Each row As DataRow In DS.Table( tab ).Rows Dim strName As String = row( name ) Dim Level As Integer = CInt(row( jishu )) Dim nodNew As New TreeNode(strName) Select Case Level Case 1 TreeView1.Nodes.Add(nodNew) Case 2 TreeView1.Nodes(0).Add(nodNew) Case 3 Dim strArea As String = strName.SubString(1,2) For Each nodArea As TreeNode In TreeView1.Nodes(0).Nodes If Instr(nodArea.Text,strArea) > 0 Then nodArea.Nodes.Add(nodNew) Exit For End If Next End Select Next __________________________________________________________________________ 谢谢了 __________________________________________________________________________ 楼上两位兄弟写的我还是不太明白.. 继续求助!! __________________________________________________________________________ 楼主看书吧，基础太差了。不看书就想编写程序？奇怪透顶的想法。 __________________________________________________________________________ 楼主的想法没有一点问题，实现起来也不是很复杂 不妨实践一下 tree是可以嵌套的 比如 tree.treenodes[0].treenodes[0]... __________________________________________________________________________