<script type="text/javascript">
</script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
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]...
__________________________________________________________________________
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]...
__________________________________________________________________________