Question

VB.NET中怎么给TreeView的父节点添加相对应的子节点？求助各位！

就比如我现在有一个父节点是仓库，里面有1号到6号仓库，我现在要添加货架（货架编号=1位仓库编号+2位货架序号），这个时候就要把1开头的货架编号添加到1号仓库下，其他也一样；然后添加货位（货位编号=1位仓库编号+3位货架编号+1位层号+2位层内序号），把1开头的货位编号添加到1开头的货架下……
请问我应该怎么做，最好能给出类似的代码。谢谢！

Answer 1

Public Class Form1

    Dim node(5) As TreeNode

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        Dim root As TreeNode

        With TreeView1

            .Nodes.Clear()

            .ShowLines = True

            .ShowPlusMinus = True

            .ShowRootLines = True

            root = .Nodes.Add("仓库") '增加根节点

            .SelectedNode = root  '在此根节点下添加子节点

            For i = 1 To 6

                node(i - 1) = .SelectedNode.Nodes.Add(i.ToString & "号仓库")

            Next

            .ExpandAll()

        End With

    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        If Val(TextBox1.Text) >= 100 And Val(TextBox1.Text) <= 699 Then

            node(Val(TextBox1.Text) \ 100 - 1).Nodes.Add(TextBox1.Text)

        End If

    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

        If Val(TextBox2.Text) >= 1000000 And Val(TextBox2.Text) <= 6999999 Then

            For Each child As TreeNode In node(Val(TextBox2.Text) \ 1000000 - 1).Nodes

                If child.Text = TextBox2.Text.Substring(1, 3) Then

                    child.Nodes.Add(TextBox2.Text)

                    Exit For

                End If

            Next

        End If

    End Sub

End Class

追问

忘了说我是绑定了数据库的 请问下需要有哪些地方不一样吗 我才刚刚开始学很多不懂 麻烦你了

追答

绑定了数据库没关系呀，你只要参考程序中是如何查找和添加节点的代码

追问

好的 谢谢~还可以问一个问题吗？我有ComboBox1和ComboBox2，ComboBox1绑定仓库，ComboBox2绑定货位，如果要让ComboBox1选择1号仓库的时候ComboBox2里只显示1开头的货位编号，我应该怎么写？麻烦你了，会多给你分的!

追答

在ComboBox1的SelectedIndexChanged事件中，代码这样：
Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
ComboBox2.Items.Clear()
For Each child As TreeNode In node(Val(ComboBox1.Text.Substring(0, 1)) - 1).Nodes
If child.Nodes.Count > 0 Then
For Each x As TreeNode In child.Nodes
ComboBox2.Items.Add(x.Text)
Next
End If
Next
If ComboBox2.Items.Count > 0 Then ComboBox2.SelectedIndex = 0
End Sub

追问

我后面这两个ComboBox和之前的TreeView没有关系了，是另外一个窗口里的，可能我没有说清楚

追答

早说呀，那货位编号怎么取？我是从TreeView里面取的

追问

不好意思啊 货位编号在货位表里取 有货位编号这个字段

追答

那你就把搜索TreeView的那段代码，改成搜索数据库好了