DevExpress如何在运行时设置和获取树节点文本和名称？

我是开发快速技术的新手。由于无法获取节点“名称”和“文本”属性，我在使用devexpress XtraTreeList时遇到问题。请任何人通过代码帮助我解决此问题。

您需要记住的一点是，每个节点可以由多个值组成。基于显示的列数。因此，您实际上想要访问的是节点的特定列，以便访问或设置节点中该列的值

例如：

TreeListColumn columnID1 = treeList1.Columns["Budget"];
// Get a cell's value in the first root node. 
object cellValue1 = treeList1.Nodes[0][columnID1];

及

---

也可以查看devExpress。这很有帮助。

也许这个例子可以帮助您：

Public Sub LoadTree()
    TreeList1.Columns.Add().Name = "DisplayColumn"

    Dim node1 = TreeList1.Nodes.Add("Father")
    node1.Tag = "Father"

    Dim node1_1 = TreeList1.Nodes.Add("Child Node")
    node1_1.Tag = "Child Node"

    Dim node1_1_1 = node1.Nodes.Add("This is a grandchild node")
    node1_1_1.Tag = "Grandchild 1"

    Dim node1_1_2 = node1.Nodes.Add("Another grandchild node")
    node1_1_2.Tag = "Grandchild 2"

End Sub

Public Sub DisplayNodeValue(ByVal tag As String)
    Dim valueToPresent = FirstTagValueInNode(TreeList1.Nodes, tag)
    MsgBox(valueToPresent.ToString)
End Sub

Public Function FirstTagValueInNode(ByVal nodes As DevExpress.XtraTreeList.Nodes.TreeListNodes, ByVal tagSearch As Object)
    For Each node As DevExpress.XtraTreeList.Nodes.TreeListNode In nodes
        If node.Tag = tagSearch Then
            Return node.GetValue(TreeList1.Columns(0))
        End If
        If node.Nodes.Count > 0 Then
            Return FirstTagValueInNode(node.Nodes, tagSearch)
        End If
    Next

    Return Nothing
End Function

---

这是我用来在树列表中添加节点及其子节点的代码。现在我想要的是，显示文本应该符合循环。对于（inti=0；i<5；i++）{my_-tree.Nodes.Add（i）；对于（intj=0；jPublic Sub LoadTree() TreeList1.Columns.Add().Name = "DisplayColumn" Dim node1 = TreeList1.Nodes.Add("Father") node1.Tag = "Father" Dim node1_1 = TreeList1.Nodes.Add("Child Node") node1_1.Tag = "Child Node" Dim node1_1_1 = node1.Nodes.Add("This is a grandchild node") node1_1_1.Tag = "Grandchild 1" Dim node1_1_2 = node1.Nodes.Add("Another grandchild node") node1_1_2.Tag = "Grandchild 2" End Sub Public Sub DisplayNodeValue(ByVal tag As String) Dim valueToPresent = FirstTagValueInNode(TreeList1.Nodes, tag) MsgBox(valueToPresent.ToString) End Sub Public Function FirstTagValueInNode(ByVal nodes As DevExpress.XtraTreeList.Nodes.TreeListNodes, ByVal tagSearch As Object) For Each node As DevExpress.XtraTreeList.Nodes.TreeListNode In nodes If node.Tag = tagSearch Then Return node.GetValue(TreeList1.Columns(0)) End If If node.Nodes.Count > 0 Then Return FirstTagValueInNode(node.Nodes, tagSearch) End If Next Return Nothing End Function