Dear All
i am populating a rad combo box for area column on rad grid add command and every thing is working fine now what i need that when do the edit the grid column value should be selected in my combo box in my case its always showing the first value. i am pasting my code . and the other issue is that i am unable to sort the radcombo box even i use sort option.
any one can help me on this issue as i am a newbie. thanks
VB CODe
ASPX Code
thanks in advance
i am populating a rad combo box for area column on rad grid add command and every thing is working fine now what i need that when do the edit the grid column value should be selected in my combo box in my case its always showing the first value. i am pasting my code . and the other issue is that i am unable to sort the radcombo box even i use sort option.
any one can help me on this issue as i am a newbie. thanks
VB CODe
Imports
System
Imports
System.Data
Imports
Telerik.Web.UI
Imports
System.Data.SqlClient
Public
Class
frmHotelMaster
Inherits
System.Web.UI.Page
Dim
objclsHotelMaster
As
New
clsHotelMaster
Dim
ObjclsAreaMaster
As
New
clsAreaMaster
Private
Const
ItemsPerRequest
As
Integer
= 10
Protected
Sub
Page_Load(
ByVal
sender
As
Object
,
ByVal
e
As
System.EventArgs)
Handles
Me
.Load
If
Not
(Page.IsPostBack)
Then
HotelGrid.DataSource = (objclsHotelMaster.GetHotelList).Tables(
"HotelMaster"
)
HotelGrid.DataBind()
End
If
End
Sub
Public
Sub
HotelGrid_DeleteCommand(
ByVal
source
As
Object
,
ByVal
e
As
Telerik.Web.UI.GridCommandEventArgs)
Handles
HotelGrid.DeleteCommand
Dim
_HotelCode
As
Integer
= 0
Dim
_Hotel
As
String
=
""
Dim
_Result
As
Long
= 0
Dim
_item
As
GridEditableItem
_item = e.Item
Try
_HotelCode = Convert.ToInt32(_item.OwnerTableView.DataKeyValues(_item.ItemIndex)(
"HotelCode"
))
'_Hotel = DirectCast(_item("UnitDesc").Controls(0), TextBox).Text
_Result = objclsHotelMaster.DeleteHotel(_HotelCode)
If
_Result = 0
Then
DisplayMessage(
"Record Deleted Successfully"
)
Else
DisplayMessage(
"Error While Deleting Record"
&
" - "
& _Result)
End
If
HotelGrid.Rebind()
Catch
ex
As
Exception
DisplayMessage(ex.Message.ToString)
e.Canceled =
True
End
Try
End
Sub
Public
Sub
HotelGrid_InsertCommand(
ByVal
source
As
Object
,
ByVal
e
As
Telerik.Web.UI.GridCommandEventArgs)
Handles
HotelGrid.InsertCommand
Dim
_HotelCode
As
Integer
= 0
Dim
_Hotel
As
String
=
""
Dim
_AreaCode
As
String
=
""
Dim
_AreaDesc
As
String
=
""
Dim
_Star
As
Int32 = 1
Dim
_Remarks
As
String
=
""
Dim
_InActive
As
Boolean
=
False
Dim
_Result
As
Long
= 0
Dim
_item
As
GridEditableItem
_item = e.Item
Try
_HotelCode = clsGeneral.GetMax(
"HotelMaster"
,
"HotelCode"
)
'Convert.ToInt32(_item.OwnerTableView.DataKeyValues(_item.ItemIndex)("UnitCode"))
_Hotel =
DirectCast
(_item.FindControl(
"txtHotel"
), TextBox).Text
_AreaCode =
DirectCast
(_item.FindControl(
"ddHotelArea"
), RadComboBox).SelectedItem.Value
_AreaDesc =
DirectCast
(_item.FindControl(
"ddHotelArea"
), RadComboBox).SelectedItem.Text
_Star =
DirectCast
(_item.FindControl(
"ddHotelStar"
), DropDownList).SelectedItem.Text
_Remarks =
DirectCast
(_item.FindControl(
"txtRemarks"
), TextBox).Text
_InActive =
DirectCast
(_item.FindControl(
"chkInActive"
), CheckBox).Checked
If
IsNothing(_HotelCode)
Then
DisplayMessage(
"Hotel Code Can not be Empty"
)
e.Canceled =
True
Exit
Sub
End
If
If
_Hotel =
""
Or
Len(_Hotel) <= 0
Then
DisplayMessage(
"Hotel Name Can not be Blank"
)
e.Canceled =
True
Exit
Sub
End
If
_Result = objclsHotelMaster.InsertHotel(_HotelCode, _Hotel, _AreaCode, _AreaDesc, _Star, _Remarks, _InActive)
If
_Result = 0
Then
DisplayMessage(
"Record Saved Successfully"
)
Else
DisplayMessage(
"Error While Saving Record"
&
" - "
& _Result)
End
If
HotelGrid.Rebind()
Catch
ex
As
Exception
DisplayMessage(ex.Message.ToString)
e.Canceled =
True
End
Try
End
Sub
' i was trying to do some thing error but do not know the exact command to get the value.
Private
Sub
HotelGrid_ItemCommand(
ByVal
source
As
Object
,
ByVal
e
As
Telerik.Web.UI.GridCommandEventArgs)
Handles
HotelGrid.ItemCommand
'Dim _item As GridEditableItem
'Dim _AreaDesc As String = ""
'Dim _Star As Int32 = 1
'If e.CommandName = RadGrid.EditCommandName Then
' _item = e.Item
' _AreaDesc = DirectCast(_item("AreaDesc").Controls(1), TextBox).Text
' DisplayMessage("test")
'End If
End
Sub
Public
Sub
HotelGrid_ItemDataBound(
ByVal
sender
As
Object
,
ByVal
e
As
Telerik.Web.UI.GridItemEventArgs)
Handles
HotelGrid.ItemDataBound
Dim
_item
As
GridEditableItem
If
(e.Item.IsInEditMode)
Then
_item = e.Item
Dim
ddl
As
DropDownList
Dim
ddl1
As
RadComboBox
'Filling Area
ddl1 =
DirectCast
(_item.FindControl(
"ddHotelArea"
), RadComboBox)
ddl1.Items.Clear()
ddl1.DataSource = ObjclsAreaMaster.GetAreaCodeList.Tables(
"AreaMaster"
)
ddl1.DataTextField =
"AreaDesc"
ddl1.DataValueField =
"AreaCode"
ddl1.DataBind()
ddl1.Sort = RadComboBoxSort.Ascending
'Filling Drop Down
ddl =
DirectCast
(_item.FindControl(
"ddHotelStar"
), DropDownList)
ddl.Items.Add(
"1"
)
ddl.Items.Add(
"2"
)
ddl.Items.Add(
"3"
)
ddl.Items.Add(
"4"
)
ddl.Items.Add(
"5"
)
ddl.Items.Add(
"6"
)
ddl.Items.Add(
"7"
)
'ddl.Text = "7"
End
If
End
Sub
Private
Sub
HotelGrid_NeedDataSource(
ByVal
source
As
Object
,
ByVal
e
As
Telerik.Web.UI.GridNeedDataSourceEventArgs)
Handles
HotelGrid.NeedDataSource
HotelGrid.DataSource = (objclsHotelMaster.GetHotelList).Tables(
"HotelMaster"
)
' HotelGrid.DataBind()
End
Sub
Public
Sub
HotelGrid_UpdateCommand(
ByVal
source
As
Object
,
ByVal
e
As
Telerik.Web.UI.GridCommandEventArgs)
Handles
HotelGrid.UpdateCommand
' Dim editedItem As GridEditableItem = CType(e.Item, GridEditableItem)
'Dim MyUserControl As UserControl = CType(e.Item.FindControl(GridEditFormItem.EditFormUserControlID), UserControl)
Dim
_HotelCode
As
Integer
= 0
Dim
_Hotel
As
String
=
""
Dim
_AreaCode
As
String
=
""
Dim
_AreaDesc
As
String
=
""
Dim
_Star
As
Int32 = 1
Dim
_Remarks
As
String
=
""
Dim
_InActive
As
Boolean
=
False
Dim
_Result
As
Long
= 0
Dim
_item
As
GridEditableItem
_item = e.Item
Try
_HotelCode = Convert.ToInt32(_item.OwnerTableView.DataKeyValues(_item.ItemIndex)(
"HotelCode"
))
_Hotel =
DirectCast
(_item.FindControl(
"txtHotel"
), TextBox).Text
_AreaCode =
DirectCast
(_item.FindControl(
"ddHotelArea"
), RadComboBox).SelectedItem.Value
_AreaDesc =
DirectCast
(_item.FindControl(
"ddHotelArea"
), RadComboBox).SelectedItem.Text
_Star =
DirectCast
(_item.FindControl(
"ddHotelStar"
), DropDownList).SelectedItem.Text
_Remarks =
DirectCast
(_item.FindControl(
"txtRemarks"
), TextBox).Text
_InActive =
DirectCast
(_item.FindControl(
"chkInActive"
), CheckBox).Checked
If
_Hotel =
""
Or
Len(_Hotel) <= 0
Then
DisplayMessage(
"Hotel Name Can not be Blank"
)
e.Canceled =
True
Exit
Sub
End
If
_Result = objclsHotelMaster.UpdateHotel(_HotelCode, _Hotel, _AreaCode, _AreaDesc, _Star, _Remarks, _InActive)
If
_Result = 0
Then
DisplayMessage(
"Record Saved Successfully"
)
Else
DisplayMessage(
"Error While Saving Record"
&
" - "
& _Result)
End
If
'HotelGrid.Rebind()
Catch
ex
As
Exception
DisplayMessage(ex.Message.ToString)
e.Canceled =
True
End
Try
End
Sub
Private
Sub
DisplayMessage(
ByVal
text
As
String
)
HotelGrid.Controls.Add(
New
LiteralControl(
String
.Format(
"<span style='color:red'>{0}</span>"
, text)))
End
Sub
End
Class
ASPX Code
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="frmHotelMaster.aspx.vb" Inherits="iTourism.frmHotelMaster" %>
<%@ Register assembly="Telerik.Web.UI" namespace="Telerik.Web.UI" tagprefix="telerik" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<
html
xmlns
=
"http://www.w3.org/1999/xhtml"
>
<
head
id
=
"Head1"
runat
=
"server"
>
<
title
></
title
>
</
head
>
<
body
>
<
form
id
=
"form1"
runat
=
"server"
>
<
div
>
<
telerik:RadScriptManager
ID
=
"RadScriptManager1"
Runat
=
"server"
>
</
telerik:RadScriptManager
>
<
table
style
=
"width:100%;"
>
<
tr
>
<
td
>
<
telerik:RadAjaxManager
ID
=
"RadAjaxManager1"
runat
=
"server"
DefaultLoadingPanelID
=
"RadAjaxLoadingPanel1"
>
<
AjaxSettings
>
<
telerik:AjaxSetting
AjaxControlID
=
"HotelGrid"
>
<
UpdatedControls
>
<
telerik:AjaxUpdatedControl
ControlID
=
"HotelGrid"
/>
</
UpdatedControls
>
</
telerik:AjaxSetting
>
</
AjaxSettings
>
</
telerik:RadAjaxManager
>
<
telerik:RadAjaxLoadingPanel
ID
=
"RadAjaxLoadingPanel1"
runat
=
"server"
Skin
=
"Default"
>
</
telerik:RadAjaxLoadingPanel
>
<
telerik:RadGrid
ID
=
"HotelGrid"
runat
=
"server"
AutoGenerateColumns
=
"False"
GridLines
=
"None"
AllowFilteringByColumn
=
"True"
AllowSorting
=
"True"
AllowPaging
=
"True"
Width
=
"80%"
ViewStateMode
=
"Enabled"
CellPadding
=
"10"
CellSpacing
=
"10"
OnUpdateCommand
=
"HotelGrid_UpdateCommand"
OnDeleteCommand
=
"HotelGrid_DeleteCommand"
Skin
=
"Office2007"
OnInsertCommand
=
"HotelGrid_InsertCommand"
OnItemDataBound
=
"HotelGrid_ItemDataBound"
>
<
ClientSettings
>
<
Selecting
AllowRowSelect
=
"True"
/>
<
Scrolling
AllowScroll
=
"True"
/>
<
Selecting
AllowRowSelect
=
"True"
></
Selecting
>
<
Scrolling
AllowScroll
=
"True"
></
Scrolling
>
</
ClientSettings
>
<
MasterTableView
EditMode
=
"EditForms"
DataKeyNames
=
"HotelCode"
InsertItemPageIndexAction
=
"ShowItemOnCurrentPage"
CommandItemDisplay
=
"Top"
ViewStateMode
=
"Enabled"
>
<
CommandItemSettings
AddNewRecordText
=
"Add Hotel"
></
CommandItemSettings
>
<
Columns
>
<
telerik:GridEditCommandColumn
ButtonType
=
"ImageButton"
UniqueName
=
"EditCommandColumn1"
/>
<
telerik:GridBoundColumn
DefaultInsertValue
=
""
UniqueName
=
"HotelCode"
HeaderText
=
"Hotel Code"
DataField
=
"HotelCode"
ReadOnly
=
"True"
>
</
telerik:GridBoundColumn
>
<
telerik:GridBoundColumn
DefaultInsertValue
=
""
UniqueName
=
"Hotel"
HeaderText
=
"Hotel Description"
DataField
=
"Hotel"
MaxLength
=
"100"
>
</
telerik:GridBoundColumn
>
<
telerik:GridBoundColumn
DefaultInsertValue
=
""
UniqueName
=
"AreaDesc"
Headertext
=
"Area"
DataField
=
"AreaDesc"
>
</
telerik:GridBoundColumn
>
<
telerik:GridBoundColumn
DefaultInsertValue
=
""
UniqueName
=
"HotelStar"
Headertext
=
"Hotel Star"
DataField
=
"Star"
>
</
telerik:GridBoundColumn
>
<
telerik:GridBoundColumn
DefaultInsertValue
=
""
UniqueName
=
"Remarks"
Headertext
=
"Remarks"
DataField
=
"Remarks"
>
</
telerik:GridBoundColumn
>
<
telerik:GridCheckBoxColumn
DataField
=
"InActive"
DataType
=
"System.Boolean"
DefaultInsertValue
=
"false"
UniqueName
=
"InActive"
HeaderText
=
"In Active"
ConvertEmptyStringToNull
=
"False"
>
</
telerik:GridCheckBoxColumn
>
<
telerik:GridButtonColumn
CommandName
=
"Delete"
ButtonType
=
"ImageButton"
ConfirmText
=
"Are You Sure To Delete"
ConfirmTitle
=
"Delete"
Text
=
"Delete"
UniqueName
=
"Delete"
>
</
telerik:GridButtonColumn
>
</
Columns
>
<
EditFormSettings
EditFormType
=
"Template"
>
<
FormTemplate
>
<
table
>
<
tr
>
<
td
>Hotel</
td
>
<
td
><
asp:TextBox
ID
=
"txtHotel"
MaxLength
=
"100"
runat
=
"server"
text='<%# Bind ("Hotel") %>' ToolTip="Enter Hotel Name" ></
asp:TextBox
>
<
asp:RequiredFieldValidator
ID
=
"RequiredFieldValidatorDesc"
runat
=
"server"
ControlToValidate
=
"txtHotel"
ErrorMessage
=
"Company Name Is Required"
ForeColor
=
"Red"
></
asp:RequiredFieldValidator
></
td
>
</
tr
>
<
tr
>
<
td
>Area</
td
>
<
td
><
telerik:radComboBox
ID
=
"ddHotelArea"
Sort
=
"Ascending"
Filter
=
"Contains"
SortCaseSensitive
=
"false"
AllowCustomText
=
"true"
runat
=
"server"
ToolTip
=
"Select Hotel Area"
> </
telerik:radComboBox
></
td
>
<
td
>Hotel Star</
td
>
<
td
><
asp:DropDownList
ID
=
"ddHotelStar"
runat
=
"server"
ToolTip
=
"Select Hotel Star"
></
asp:DropDownList
>
</
td
>
</
tr
>
<
tr
>
<
td
>Remarks</
td
>
<
td
><
asp:TextBox
ID
=
"txtRemarks"
Width
=
"350px"
MaxLength
=
"100"
runat
=
"server"
text='<%# Bind ("Remarks") %>' ToolTip="Enter Remarks" ></
asp:TextBox
>
</
td
>
<
td
></
td
>
<
td
>In Active</
td
>
<
td
><
asp:CheckBox
ID
=
"chkInActive"
runat
=
"server"
Checked='<%# Bind ("InActive") %>' ToolTip="Company Status" ></
asp:CheckBox
></
td
>
</
tr
>
<
tr
><
td
>
<
asp:ImageButton
ID
=
"btnInsert"
CommandName
=
"PerformInsert"
AlternateText
=
"Add"
ImageUrl
=
"~/images/save.png"
runat
=
"server"
Visible= '<%# HotelGrid.MasterTableView.IsItemInserted %>'/>
<
asp:ImageButton
ID
=
"btnUpdate"
CommandName
=
"Update"
AlternateText
=
"Update"
ImageUrl
=
"~/images/save.png"
runat
=
"server"
Visible= '<%# HotelGrid.EditIndexes.Count > 0 %>'/>
<
asp:ImageButton
ID
=
"btnCancel"
CommandName
=
"Cancel"
AlternateText
=
"Cancel"
ImageUrl
=
"~/images/delete.png"
runat
=
"server"
CausesValidation
=
"false"
/> </
td
>
</
tr
>
</
table
>
</
FormTemplate
>
</
EditFormSettings
>
<
CommandItemSettings
AddNewRecordText
=
"Add Hotel"
/>
</
MasterTableView
>
</
telerik:RadGrid
></
td
>
</
tr
>
</
table
>
</
div
>
</
form
>
</
body
>
</
html
>
thanks in advance