[Solved] Set the DefaultValue from a combo box

[Stefan]

Hi,

I have a rad grid but when in edit mode I need to set one of the columns default value to the selectedvalue of a combo box?  How can this be done in VB.

Thanks,

[Princy]

Hi,

Please try the following code snippet to set the Combobox Selected value.

VB:

Protected Sub RadGrid1_ItemDataBound(sender As Object, e As GridItemEventArgs)
    If TypeOf e.Item Is GridEditFormItem AndAlso e.Item.IsInEditMode Then
        'the grid is in Edit mode.
        Dim item As GridEditFormItem = DirectCast(e.Item, GridEditFormItem)
        Dim combo As RadComboBox = DirectCast(item.FindControl("RadCombobox1"), RadComboBox)
        combo.SelectedValue = "your value"
    End If
End Sub

Thanks,
Princy.

[Stefan]

Thanks Princy but I need to set the DefaultInsertValue of my grid column to the selected value of my combobox. So when I do an Add New I have this value to pass to the stored proc.

<telerik:GridBoundColumn DefaultInsertValue="??????" DataField="EmplID" DataType="System.Int32" HeaderText="Emp. ID:" ReadOnly="False" SortExpression="EmplID" UniqueName="EmplID" Visible="False">
 </telerik:GridBoundColumn>

Will this need to be javascript or can I do some kind of databinder?

[Princy]

Hi Stefan,

I apologize for misunderstanding your requirement. One option is to set the text in GridBoundColumn(edit mode) on SelectedIndexChanged event of the RadComboBox.

ASPX:

<telerik:GridTemplateColumn>
    <EditItemTemplate>
        <telerik:RadComboBox ID="RadComboBox1" runat="server" OnSelectedIndexChanged="RadComboBox1_SelectedIndexChanged">
            <Items>
                <telerik:RadComboBoxItem Text="NotSelected" Value="NotSelected" />
                <telerik:RadComboBoxItem Text="Car" Value="Car" />
                <telerik:RadComboBoxItem Text="Cycle" Value="Cycle" />
            </Items>
        </telerik:RadComboBox>
    </EditItemTemplate>
</telerik:GridTemplateColumn>

VB:

Protected Sub RadComboBox1_SelectedIndexChanged(sender As Object, e As RadComboBoxSelectedIndexChangedEventArgs)
    Dim radcombo As RadComboBox = DirectCast(sender, RadComboBox)
    Dim editItem As GridEditableItem = DirectCast(radcombo.NamingContainer, GridEditableItem)
    Dim txt As TextBox = DirectCast(editItem("UniqueNameOfBoundColumn").Controls(0), TextBox)
    If radcombo.SelectedValue = "Car" Then
        txt.Text = radcombo.SelectedValue
    End If
End Sub

Thanks,
Princy.