i had put a dropdownlist in formtemplate for user to select value.
but how can i assign the selected value from db to the dropdownlist ?
VB code behind
but how can i assign the selected value from db to the dropdownlist ?
<
telerik:RadCodeBlock
ID
=
"RadCodeBlock1"
runat
=
"server"
>
<
script
type
=
"text/javascript"
>
function RowDblClick(sender, eventArgs) {
sender.get_masterTableView().editItem(eventArgs.get_itemIndexHierarchical());
}
</
script
>
</
telerik:RadCodeBlock
>
<
telerik:RadAjaxManager
ID
=
"RadAjaxManager1"
runat
=
"server"
>
<
AjaxSettings
>
<
telerik:AjaxSetting
AjaxControlID
=
"RadGrid_License"
>
<
UpdatedControls
>
<
telerik:AjaxUpdatedControl
ControlID
=
"RadGrid_License"
LoadingPanelID
=
"RadAjaxLoadingPanel1"
>
</
telerik:AjaxUpdatedControl
>
<
telerik:AjaxUpdatedControl
ControlID
=
"divMsgs"
></
telerik:AjaxUpdatedControl
>
</
UpdatedControls
>
</
telerik:AjaxSetting
>
</
AjaxSettings
>
</
telerik:RadAjaxManager
>
<
telerik:RadAjaxLoadingPanel
ID
=
"RadAjaxLoadingPanel1"
runat
=
"server"
>
</
telerik:RadAjaxLoadingPanel
>
<
telerik:RadGrid
ID
=
"RadGrid_License"
runat
=
"server"
CellSpacing
=
"0"
DataSourceID
=
"ODS_License"
GridLines
=
"None"
style
=
"margin-top: 0px"
AllowFilteringByColumn
=
"True"
AllowPaging
=
"True"
AllowSorting
=
"True"
AutoGenerateColumns
=
"False"
ShowStatusBar
=
"True"
AllowAutomaticDeletes
=
"True"
AllowAutomaticInserts
=
"True"
AllowAutomaticUpdates
=
"True"
>
<
MasterTableView
AutoGenerateColumns
=
"False"
DataKeyNames
=
"License_To_Operate_ID"
DataSourceID
=
"ODS_License"
AllowFilteringByColumn
=
"False"
AllowPaging
=
"False"
CommandItemDisplay
=
"Top"
>
<
CommandItemSettings
ExportToPdfText
=
"Export to PDF"
/>
<
RowIndicatorColumn
FilterControlAltText
=
"Filter RowIndicator column"
Visible
=
"True"
>
</
RowIndicatorColumn
>
<
ExpandCollapseColumn
FilterControlAltText
=
"Filter ExpandColumn column"
Visible
=
"True"
>
</
ExpandCollapseColumn
>
<
Columns
>
<
telerik:GridEditCommandColumn
UniqueName
=
"EditCommandColumn"
>
</
telerik:GridEditCommandColumn
>
<
telerik:GridBoundColumn
DataField
=
"License_To_Operate_ID"
FilterControlAltText
=
"Filter License_Number column"
HeaderText
=
"License_To_Operate_ID"
SortExpression
=
"License_To_Operate_ID"
UniqueName
=
"License_To_Operate_ID"
Visible
=
"false"
>
</
telerik:GridBoundColumn
>
<
telerik:GridBoundColumn
DataField
=
"License_Name"
FilterControlAltText
=
"Filter License_Name column"
HeaderText
=
"License Name"
SortExpression
=
"License_Name"
UniqueName
=
"License_Name"
>
</
telerik:GridBoundColumn
>
<
telerik:GridBoundColumn
DataField
=
"License_Number"
FilterControlAltText
=
"Filter License_Number column"
HeaderText
=
"License Number"
SortExpression
=
"License_Number"
UniqueName
=
"License_Number"
>
</
telerik:GridBoundColumn
>
<
telerik:GridBoundColumn
DataField
=
"License_Issuer"
FilterControlAltText
=
"Filter License_Issuer column"
HeaderText
=
"License Issuer"
SortExpression
=
"License_Issuer"
UniqueName
=
"License_Issuer"
>
</
telerik:GridBoundColumn
>
<
telerik:GridBoundColumn
DataField
=
"Valid_From"
DataType
=
"System.DateTime"
FilterControlAltText
=
"Filter Valid_From column"
HeaderText
=
"Valid From"
SortExpression
=
"Valid_From"
UniqueName
=
"Valid_From"
DataFormatString
=
"{0: dd-MMM-yyyy}"
>
</
telerik:GridBoundColumn
>
<
telerik:GridBoundColumn
DataField
=
"Valid_Till"
DataType
=
"System.DateTime"
FilterControlAltText
=
"Filter Valid_Till column"
HeaderText
=
"Valid Till"
SortExpression
=
"Valid_Till"
UniqueName
=
"Valid_Till"
DataFormatString
=
"{0: dd-MMM-yyyy}"
>
</
telerik:GridBoundColumn
>
<
telerik:GridBoundColumn
DataField
=
"Issue_date"
DataType
=
"System.DateTime"
FilterControlAltText
=
"Filter Issue_date column"
HeaderText
=
"Issue Date"
SortExpression
=
"Issue_date"
UniqueName
=
"Issue_date"
DataFormatString
=
"{0: dd-MMM-yyyy}"
>
</
telerik:GridBoundColumn
>
</
Columns
>
<
EditFormSettings
EditFormType
=
"Template"
>
<
EditColumn
FilterControlAltText
=
"Filter EditCommandColumn1 column"
UniqueName
=
"EditCommandColumn1"
>
</
EditColumn
>
<
FormTemplate
>
<
table
id
=
"Table2"
cellspacing
=
"2"
cellpadding
=
"1"
width
=
"100%"
border
=
"1"
rules
=
"none"
style
=
"border-collapse: collapse;"
>
<
tr
class
=
"EditFormHeader"
>
<
td
style
=
"width:100px"
>
<
asp:Label
ID
=
"Label5"
Text
=
"License Type"
runat
=
"server"
></
asp:Label
>
</
td
>
<
td
>
<
telerik:RadDropDownList
ID
=
"rdl_license_type"
runat
=
"server"
DataSourceID
=
"LDS_License_type"
DefaultMessage
=
"Please select..."
DataValueField
=
"License_ID"
DataTextField
=
"License_name"
>
</
telerik:RadDropDownList
>
<
asp:Label
ID
=
"Lb_License_ID"
runat
=
"server"
text='<%# Bind("License_ID") %>'></
asp:Label
>
</
td
>
</
tr
>
<
tr
>
<
td
>
<
asp:Label
ID
=
"lb"
Text
=
"License Number"
runat
=
"server"
></
asp:Label
>
</
td
>
<
td
>
<
asp:TextBox
ID
=
"tb_License_Number"
runat
=
"server"
Text='<%# Bind("License_Number") %>' TabIndex="2"></
asp:TextBox
>
</
td
>
</
tr
>
<
tr
>
<
td
>
<
asp:Label
ID
=
"Label1"
Text
=
"License Issuer"
runat
=
"server"
></
asp:Label
>
</
td
>
<
td
>
<
asp:TextBox
ID
=
"tb_License_Issuer"
runat
=
"server"
Text='<%# Bind("License_Issuer") %>' TabIndex="3"></
asp:TextBox
>
</
td
>
</
tr
>
<
tr
>
<
td
>
<
asp:Label
ID
=
"Label2"
Text
=
"Issue Date"
runat
=
"server"
></
asp:Label
>
</
td
>
<
td
>
<
telerik:RadDatePicker
ID
=
"IssueDatePicker"
runat
=
"server"
MinDate
=
"1/1/1900"
DbSelectedDate='<%# Bind("Issue_Date") %>' TabIndex="4"></
telerik:RadDatePicker
>
</
td
>
</
tr
>
<
tr
>
<
td
>
<
asp:Label
ID
=
"Label3"
Text
=
"Valid From"
runat
=
"server"
></
asp:Label
>
</
td
>
<
td
>
<
telerik:RadDatePicker
ID
=
"RadDatePicker_ValidFrom"
runat
=
"server"
MinDate
=
"1/1/1900"
DbSelectedDate='<%# Bind("Valid_From") %>' TabIndex="5"></
telerik:RadDatePicker
>
</
td
>
</
tr
>
<
tr
>
<
td
>
<
asp:Label
ID
=
"Label4"
Text
=
"Valid To"
runat
=
"server"
></
asp:Label
>
</
td
>
<
td
>
<
telerik:RadDatePicker
ID
=
"RadDatePicker_ValidTill"
runat
=
"server"
MinDate
=
"1/1/1900"
DbSelectedDate='<%# Bind("Valid_Till") %>' TabIndex="6"></
telerik:RadDatePicker
>
</
td
>
</
tr
>
<
tr
>
<
td
align
=
"right"
colspan
=
"2"
>
<
asp:Button
ID
=
"btnUpdate"
Text='<%# IIf((TypeOf(Container) is GridEditFormInsertItem), "Insert", "Update") %>'
runat="server" CommandName='<%# IIf((TypeOf(Container) is GridEditFormInsertItem), "PerformInsert", "Update")%>' >
</
asp:Button
>
<
asp:Button
ID
=
"btnDelete"
Text
=
"Delete"
runat
=
"server"
CausesValidation
=
"False"
CommandName
=
"Delete"
></
asp:Button
>
<
asp:Button
ID
=
"btnCancel"
Text
=
"Cancel"
runat
=
"server"
CausesValidation
=
"False"
CommandName
=
"Cancel"
></
asp:Button
>
</
td
>
</
tr
>
</
table
>
</
FormTemplate
>
</
EditFormSettings
>
<
PagerStyle
PageSizeControlType
=
"RadComboBox"
/>
</
MasterTableView
>
<
PagerStyle
PageSizeControlType
=
"RadComboBox"
/>
<
FilterMenu
EnableImageSprites
=
"False"
>
</
FilterMenu
>
</
telerik:RadGrid
>
<
asp:LinqDataSource
ID
=
"LDS_License_type"
runat
=
"server"
ContextTypeName
=
"dcLRDBDataContext"
EntityTypeName
=
""
TableName
=
"db_Dictionary_Licenses"
>
</
asp:LinqDataSource
>
<
asp:ObjectDataSource
ID
=
"ODS_License"
runat
=
"server"
SelectMethod
=
"GetLicenseArrayByUserID"
TypeName
=
"LRDB"
>
<
SelectParameters
>
<
asp:SessionParameter
DefaultValue
=
"0"
Name
=
"id"
SessionField
=
"SelectedUserID"
Type
=
"String"
/>
</
SelectParameters
>
</
asp:ObjectDataSource
>
<
asp:LinqDataSource
ID
=
"LDS_License"
runat
=
"server"
ContextTypeName
=
"dcLRDBDataContext"
EntityTypeName
=
""
TableName
=
"db_Employee_Licenses"
Where
=
"UserID == @UserID"
>
<
WhereParameters
>
<
asp:SessionParameter
Name
=
"UserID"
SessionField
=
"SelectedUserID"
Type
=
"Int32"
DefaultValue
=
"0"
/>
</
WhereParameters
>
</
asp:LinqDataSource
>
VB code behind
Protected Sub RadGrid_License_ItemCommand(ByVal source As Object, ByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGrid_License.ItemCommand
If e.CommandName = RadGrid.InitInsertCommandName Then 'Click Add New Record button
Dim editColumn As GridEditCommandColumn = CType(RadGrid_License.MasterTableView.GetColumn("EditCommandColumn"), GridEditCommandColumn)
editColumn.Visible = False
ElseIf (e.CommandName = RadGrid.RebindGridCommandName AndAlso e.Item.OwnerTableView.IsItemInserted) Then
e.Canceled = True
Else
Dim editColumn As GridEditCommandColumn = CType(RadGrid_License.MasterTableView.GetColumn("EditCommandColumn"), GridEditCommandColumn)
If Not editColumn.Visible Then 'Click Cancel button (both Insert and Update mode)
editColumn.Visible = True
End If
Dim ddlLicense_id As RadDropDownList = DirectCast(e.Item.FindControl("rdl_license_type"), RadDropDownList)
Dim txtLicense_Number As TextBox = DirectCast(e.Item.FindControl("tb_License_Number"), TextBox)
Dim txtLicense_Issuer As TextBox = DirectCast(e.Item.FindControl("tb_License_Issuer"), TextBox)
Dim dateIssue As RadDatePicker = DirectCast(e.Item.FindControl("IssueDatePicker"), RadDatePicker)
Dim dateValidFrom As RadDatePicker = DirectCast(e.Item.FindControl("RadDatePicker_ValidFrom"), RadDatePicker)
Dim dateValidTill As RadDatePicker = DirectCast(e.Item.FindControl("RadDatePicker_ValidTill"), RadDatePicker)
Dim dc As New dcLRDBDataContext
If e.CommandName = "PerformInsert" Then
If Request.QueryString("EmployeeID") = "" Then 'New Employee
Dim rnd As New Random()
Dim tmpUserID As Integer 'allow 10 digit only
tmpUserID = rnd.Next(100000, 999999) & DateTime.Now.Hour & DateTime.Now.Minute
HttpContext.Current.Session("tmpUserID") = tmpUserID
dc.insertEmployeeLicense(tmpUserID.ToString, ddlLicense_id.SelectedValue, txtLicense_Number.Text.Trim, txtLicense_Issuer.Text.Trim, _
dateIssue.SelectedDate, dateValidFrom.SelectedDate, dateValidTill.SelectedDate, "Y", DateTime.Now, HttpContext.Current.Session("UserID").ToString)
Else
dc.insertEmployeeLicense(Request.QueryString("EmployeeID").ToString, ddlLicense_id.SelectedValue, txtLicense_Number.Text.Trim, txtLicense_Issuer.Text.Trim, _
dateIssue.SelectedDate, dateValidFrom.SelectedDate, dateValidTill.SelectedDate, "Y", DateTime.Now, HttpContext.Current.Session("UserID").ToString)
End If
ElseIf e.CommandName = "Update" Then
Dim lid As Integer = e.Item.OwnerTableView.DataKeyValues(e.Item.ItemIndex)("License_To_Operate_ID")
Dim uid As Integer
If Request.QueryString("EmployeeID") = "" Then
uid = HttpContext.Current.Session("tmpUserID").ToString
Else
uid = GetUserIDbyEmployeeID(Request.QueryString("EmployeeID")).ToString
End If
Dim rec = (From p In dc.db_Employee_Licenses Where p.UserID = uid And p.License_To_Operate_ID = lid).FirstOrDefault
If Not rec Is Nothing Then
rec.License_ID = ddlLicense_id.SelectedValue
rec.License_Number = txtLicense_Number.Text.Trim
rec.License_Issuer = txtLicense_Issuer.Text.Trim
rec.Issue_date = dateIssue.SelectedDate
rec.Valid_From = dateValidFrom.SelectedDate
rec.Valid_Till = dateValidTill.SelectedDate
End If
ElseIf e.CommandName = "Delete" Then
Dim lid As Integer = e.Item.OwnerTableView.DataKeyValues(e.Item.ItemIndex)("License_To_Operate_ID")
Dim uid As Integer
If Request.QueryString("EmployeeID") = "" Then
uid = HttpContext.Current.Session("tmpUserID").ToString
Else
uid = GetUserIDbyEmployeeID(Request.QueryString("EmployeeID")).ToString
End If
Dim rec2 = (From p In dc.db_Employee_Licenses Where p.UserID = uid And p.License_To_Operate_ID = lid).FirstOrDefault
If Not IsNothing(rec2) Then
dc.db_Employee_Licenses.DeleteOnSubmit(rec2)
dc.SubmitChanges()
End If
End If
dc.Dispose()
End If
End Sub
Private Sub RadGrid_License_ItemDataBound(ByVal sender As Object, ByVal e As Telerik.Web.UI.GridItemEventArgs) Handles RadGrid_License.ItemDataBound
If (TypeOf e.Item Is GridEditableItem AndAlso e.Item.IsInEditMode) Then
Dim item As GridEditableItem = e.Item
'access/modify the edit item template settings here
Dim list As RadDropDownList = item.FindControl("rdl_license_type")
'list.DataSource = Country_values
'list.DataBind()
If (Not HttpContext.Current.Session("updatedValue") Is Nothing) Then
list.SelectedValue = 2
'HttpContext.Current.Session("updatedValue")
End If
ElseIf (TypeOf e.Item Is GridDataItem AndAlso Not e.Item.IsInEditMode AndAlso Page.IsPostBack) Then
Dim item As GridDataItem = e.Item
Dim label As Label = item.FindControl("Lb_License_ID")
'update the label value
label.Text = HttpContext.Current.Session("updatedValue")
End If
End Sub