How to: Assign editors to individual cells

• Nov 13, 2018
• 2 minutes to read

The following sample code handles the TreeList.CustomNodeCellEdit event to assign different in-place editors (repository items) to cells. It’s assumed that these editors have already been added to the Tree List’s repository.

The image below shows the result.

C#

using DevExpress.XtraTreeList;

private void treeList1_GetCustomNodeCellEdit(object sender, DevExpress.XtraTreeList.GetCustomNodeCellEditEventArgs e) {
    if(e.Column.FieldName != "Category") {
        object obj = e.Node.GetValue(0);
        if(obj != null) {
            switch(obj.ToString()) {
                case "Category":
                    e.RepositoryItem = repositoryImageComboBox1;
                    break;
                case "Supplier":
                    e.RepositoryItem = repositoryItemComboBox1;
                    break;
                case "Unit Price":
                    e.RepositoryItem = repositoryItemCalcEdit1;
                    break;
                case "Units in Stock":
                    e.RepositoryItem = repositoryItemSpinEdit1;
                    break;
                case "Discontinued":
                    e.RepositoryItem = repositoryItemCheckEdit1;
                    break;
                case "Last Order":
                    e.RepositoryItem = repositoryItemDateEdit1;
                    break;
                case "Relevance":
                    e.RepositoryItem = repositoryItemProgressBar1;
                    break;
                case "Phone":
                    e.RepositoryItem = repositoryItemTextEdit1;
                    break;
            }
        }
    }
}

VB.NET

Imports DevExpress.XtraTreeList

Private Sub treeList1_GetCustomNodeCellEdit(ByVal sender As Object, _
        ByVal e As DevExpress.XtraTreeList.GetCustomNodeCellEditEventArgs) _
        Handles treeList1.CustomNodeCellEdit
    If e.Column.FieldName <> "Category" Then
        Dim obj As Object = e.Node.GetValue(0)
        If obj IsNot Nothing Then
            Select Case obj.ToString()
                Case "Category"
                    e.RepositoryItem = repositoryImageComboBox1
                Case "Supplier"
                    e.RepositoryItem = repositoryItemComboBox1
                Case "Unit Price"
                    e.RepositoryItem = repositoryItemCalcEdit1
                Case "Units in Stock"
                    e.RepositoryItem = repositoryItemSpinEdit1
                Case "Discontinued"
                    e.RepositoryItem = repositoryItemCheckEdit1
                Case "Last Order"
                    e.RepositoryItem = repositoryItemDateEdit1
                Case "Relevance"
                    e.RepositoryItem = repositoryItemProgressBar1
                Case "Phone"
                    e.RepositoryItem = repositoryItemTextEdit1
            End Select
        End If
    End If
End Sub