using System;
using System.Windows.Forms;
using System.ComponentModel;
using System.Runtime.CompilerServices;
using System.ComponentModel.DataAnnotations;
using DevExpress.XtraEditors;

namespace DXApplication1 {
    public partial class Form1 : XtraForm {
        BindingList<Record> records;
        public Form1() {
            InitializeComponent();
            records = new BindingList<Record>() {
                new Record(0){ ParentID = 0, JobTitle = "Chief Executive Officer", FirstName = "Bruce", LastName = "Cambell" },
                new Record(1){ ParentID = 0, JobTitle = "Information Services Manager", FirstName = "Cindy", LastName = "Haneline" },
                new Record(2){ ParentID = 1, JobTitle = "Database Administrator", FirstName = "Andrea", LastName = "Deville" },
                new Record(3){ ParentID = 1, JobTitle = "Application Specialist", FirstName = "Anita", LastName = "Ryan" },
                new Record(4){ ParentID = 0, JobTitle = "Network Manager", FirstName = "Dora", LastName = "Cardle" },
            };
            treeList1.DataSource = records;
            treeList1.KeyFieldName = "ID";
            treeList1.ParentFieldName = "ParentID";
            textEdit1.DataBindings.Add(new Binding("EditValue", records, "JobTitle"));
            textEdit1.Properties.ValidateOnEnterKey = true;
        }
    }

    public class Record : INotifyPropertyChanged {
        int id;
        public Record(int id) {
            this.id = id;
        }
        [Display(Order = -1)]
        public int ID {
            get { return id; }
        }
        [Display(Order = -1)]
        public int ParentID { get; set; }

        string jobTitle;
        public string JobTitle {
            get { return jobTitle; }
            set {
                if (jobTitle != value) {
                    if (string.IsNullOrEmpty(value))
                        throw new Exception();
                    jobTitle = value;
                    OnPropertyChanged();
                }
            }
        }
        string firstName;
        public string FirstName {
            get { return firstName; }
            set {
                if (firstName != value) {
                    firstName = value;
                    OnPropertyChanged();
                }
            }
        }
        string lastName;
        public string LastName {
            get { return lastName; }
            set {
                if (lastName != value) {
                    lastName = value;
                    OnPropertyChanged();
                }
            }
        }
        public event PropertyChangedEventHandler PropertyChanged;
        protected void OnPropertyChanged([CallerMemberName] string propertyName = "") {
            if (PropertyChanged != null)
                PropertyChanged(this, new PropertyChangedEventArgs(propertyName));
        }
    }
}

Imports System
Imports System.Windows.Forms
Imports System.ComponentModel
Imports System.Runtime.CompilerServices
Imports System.ComponentModel.DataAnnotations
Imports DevExpress.XtraEditors

Namespace DXApplication12
    Partial Public Class Form1
        Inherits XtraForm

        Private records As BindingList(Of Record)
        Public Sub New()
            InitializeComponent()
            records = New BindingList(Of Record)() From {
                New Record(0) With {
                    .ParentID = 0,
                    .JobTitle = "Chief Executive Officer",
                    .FirstName = "Bruce",
                    .LastName = "Cambell"
                },
                New Record(1) With {
                    .ParentID = 0,
                    .JobTitle = "Information Services Manager",
                    .FirstName = "Cindy",
                    .LastName = "Haneline"
                },
                New Record(2) With {
                    .ParentID = 1,
                    .JobTitle = "Database Administrator",
                    .FirstName = "Andrea",
                    .LastName = "Deville"
                },
                New Record(3) With {
                    .ParentID = 1,
                    .JobTitle = "Application Specialist",
                    .FirstName = "Anita",
                    .LastName = "Ryan"
                },
                New Record(4) With {
                    .ParentID = 0,
                    .JobTitle = "Network Manager",
                    .FirstName = "Dora",
                    .LastName = "Cardle"
                }
            }
            treeList1.DataSource = records
            treeList1.KeyFieldName = "ID"
            treeList1.ParentFieldName = "ParentID"
            textEdit1.DataBindings.Add(New Binding("EditValue", records, "JobTitle"))
            textEdit1.Properties.ValidateOnEnterKey = True
        End Sub
    End Class

    Public Class Record
        Implements INotifyPropertyChanged

        Private id_Renamed As Integer
        Public Sub New(ByVal id As Integer)
            Me.id_Renamed = id
        End Sub
        <Display(Order := -1)>
        Public ReadOnly Property ID() As Integer
            Get
                Return id_Renamed
            End Get
        End Property
        <Display(Order := -1)>
        Public Property ParentID() As Integer

        Private jobTitle_Renamed As String
        Public Property JobTitle() As String
            Get
                Return jobTitle_Renamed
            End Get
            Set(ByVal value As String)
                If jobTitle_Renamed <> value Then
                    If String.IsNullOrEmpty(value) Then
                        Throw New Exception()
                    End If
                    jobTitle_Renamed = value
                    OnPropertyChanged()
                End If
            End Set
        End Property
        Private firstName_Renamed As String
        Public Property FirstName() As String
            Get
                Return firstName_Renamed
            End Get
            Set(ByVal value As String)
                If firstName_Renamed <> value Then
                    firstName_Renamed = value
                    OnPropertyChanged()
                End If
            End Set
        End Property
        Private lastName_Renamed As String
        Public Property LastName() As String
            Get
                Return lastName_Renamed
            End Get
            Set(ByVal value As String)
                If lastName_Renamed <> value Then
                    lastName_Renamed = value
                    OnPropertyChanged()
                End If
            End Set
        End Property
        Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged
        Protected Sub OnPropertyChanged(Optional <CallerMemberName> ByVal propertyName As String = "")
            RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(propertyName))
        End Sub
    End Class
End Namespace