To reproduce: the attached gif file illustrates the behavior.

public Form2()
{
    InitializeComponent();

    this.radGridView1.DataSource = this.customersBindingSource;
    this.radGridView1.CellClick += radGridView1_CellClick;
}

private void radGridView1_CellClick(object sender, Telerik.WinControls.UI.GridViewCellEventArgs e)
{
    this.radDataLayout1.DataSource = e.Row.DataBoundItem;
    this.radDataEntry1.DataSource = e.Row.DataBoundItem;
}

private void Form2_Load(object sender, EventArgs e)
{
    // TODO: This line of code loads data into the 'nwindDataSet1.Customers' table. You can move, or remove it, as needed.
    this.customersTableAdapter.Fill(this.nwindDataSet1.Customers);
}

Please refer to the attached gif file.

Workaround: handle the SelectedIndexChanged event and update the DataBoundItem programmatically:

Dim dt As New DataTable
Dim bs As New BindingSource
Sub New()

    InitializeComponent()
    AddHandler Me.RadDataEntry1.EditorInitializing, AddressOf EditorInitializing

    dt.Columns.Add("Id", GetType(Integer))
    dt.Columns.Add("Name", GetType(String))
    dt.Columns.Add("Type", GetType(DeliveryType))

    dt.Rows.Add(1, "Item1", DeliveryType.Type2)
    dt.Rows.Add(2, "Item2", DeliveryType.Type3)
    dt.Rows.Add(3, "Item3", DeliveryType.Type1)

    bs.DataSource = dt
    Me.RadDataEntry1.DataSource = bs
    Me.RadBindingNavigator1.BindingSource = bs
End Sub

Public Enum DeliveryType
    Type1 = 0
    Type2 = 1
    Type3 = 2
End Enum

Private Sub EditorInitializing(sender As Object, e As Telerik.WinControls.UI.EditorInitializingEventArgs)
    Dim ddl As RadDropDownList = TryCast(e.Editor, RadDropDownList)
    If ddl IsNot Nothing Then
        AddHandler ddl.SelectedIndexChanged, AddressOf SelectedIndexChanged
    End If
End Sub

Private Sub SelectedIndexChanged(sender As Object, e As Data.PositionChangedEventArgs)
    Dim dataRowView As DataRowView = TryCast(bs.Current, DataRowView)
    dataRowView.Row("Type") = e.Position
End Sub

Use attached to reproduce.