or
<telerik:RadTreeList ID="rtlNotes" runat="server" GridLines="None" AutoGenerateColumns="false"
OnNeedDataSource="rtlNotes_NeedDataSource" OnItemDataBound="rtlNotes_ItemDataBound" OnItemCommand="rtlNotes_ItemCommand"
OnUpdateCommand="rtlNotes_UpdateCommand" OnInsertCommand="rtlNotes_InsertCommand" OnDeleteCommand="rtlNotes_DeleteCommand"
ParentDataKeyNames="ParentId" DataKeyNames="Id"
AllowSorting="true"
AllowPaging="true" PageSize="20" OnPageIndexChanged="rtlNotes_PageIndexChanged" OnPageSizeChanged="rtlNotes_PageSizeChanged"
PagerStyle-Position="TopAndBottom" PagerStyle-AlwaysVisible="true" PagerStyle-PagerTextFormat="{4} page {0} of {1}, item {2} to {3} of {5}"
NoRecordsText="There are no notes for this person.">
...
</telerik:RadTreeList>
<
telerik:RadGrid
ID
=
"SearchResult"
runat
=
"server"
Culture
=
"EN"
Width
=
"1220px"
DataSourceID
=
"odsTask"
ValidationSettings-EnableValidation
=
"true"
ValidationSettings-ValidationGroup
=
"SearchResultGorup"
OnItemDataBound
=
"SearchResult_ItemDataBound"
OnItemCreated
=
"SearchGrid_ItemCreated"
OnItemCommand
=
"SearchResult_ItemCommand"
>
<
GroupingSettings
CaseSensitive
=
"false"
/>
<
MasterTableView
CommandItemDisplay
=
"Top"
AutoGenerateColumns
=
"false"
AllowSorting
=
"True"
GridLines
=
"None"
AllowPaging
=
"true"
AllowFilteringByColumn
=
"True"
OverrideDataSourceControlSorting
=
"true"
DataSourceID
=
"odsTask"
Width
=
"1220px"
NoMasterRecordsText
=
"No Results Found"
DataKeyNames
=
"IDTask,TaskGroup"
CommandItemSettings-ShowAddNewRecordButton
=
"false"
>
<
CommandItemTemplate
>
<
div
id
=
"Command"
>
<
asp:Label
ID
=
"lblTitleServer"
SkinID
=
"Title"
runat
=
"server"
Text="<%$Resources:Resource, ListaTask %>" />
<
telerik:RadButton
ID
=
"btAddNewServer"
OnClick
=
"btAddNewTask_Click"
runat
=
"server"
SkinID
=
"ToolBarButtonRight"
Text="<%$Resources:Resource, AddNewTask%>" Width="200px"
/>
</
div
>
</
CommandItemTemplate
>
<
RowIndicatorColumn
FilterControlAltText
=
"Filter RowIndicator column"
>
<
HeaderStyle
Width
=
"20px"
></
HeaderStyle
>
</
RowIndicatorColumn
>
<
ExpandCollapseColumn
FilterControlAltText
=
"Filter ExpandColumn column"
>
<
HeaderStyle
Width
=
"20px"
></
HeaderStyle
>
</
ExpandCollapseColumn
>
<
Columns
>
<
telerik:GridBoundColumn
DataField
=
"IDTask"
DataType
=
"System.Int64"
FilterControlAltText
=
"Filter IDTask column"
HeaderText
=
"ID"
HeaderStyle-Width
=
"20px"
ItemStyle-Width
=
"20px"
FooterStyle-Width
=
"20px"
FilterControlWidth
=
"20px"
SortExpression
=
"IDTask"
UniqueName
=
"IDTask"
ReadOnly
=
"true"
Visible
=
"true"
FilterImageUrl
=
"../App_Themes/ICTTheme/immagini/u58.png"
AutoPostBackOnFilter
=
"true"
CurrentFilterFunction
=
"EqualTo"
>
</
telerik:GridBoundColumn
>
<
telerik:GridBoundColumn
DataField
=
"Description"
HeaderText="<%$Resources:Resource, TaskDescription %>" SortExpression="Description"
UniqueName="Description" Display="true" ItemStyle-Width="80px" HeaderStyle-Width="80px" FilterImageUrl="../App_Themes/ICTTheme/immagini/u58.png"
AutoPostBackOnFilter="true" CurrentFilterFunction="Contains" DataType="System.String">
</
telerik:GridBoundColumn
>
<
telerik:GridDropDownColumn
DataField
=
"UserIdentifier"
DataSourceID
=
"odsUsers"
HeaderStyle-Width
=
"80px"
ItemStyle-Width
=
"80px"
FooterStyle-Width
=
"80px"
FilterControlWidth
=
"80px"
FilterControlAltText
=
"Filter UserName column"
HeaderText="<%$Resources:Resource, TaskAssignedUser %>" FilterImageUrl="../App_Themes/ICTTheme/immagini/u58.png"
ListTextField="UserName" ListValueField="UniqueIdentifier"
UniqueName="UserName" DataType="System.String"
AutoPostBackOnFilter="true" CurrentFilterFunction="Contains">
</
telerik:GridDropDownColumn
>
<
telerik:GridBoundColumn
DataField
=
"UserName"
HeaderText
=
"UserName"
SortExpression
=
"UserName"
UniqueName
=
"UserNameHidden"
Display
=
"false"
ReadOnly
=
"true"
>
</
telerik:GridBoundColumn
>
<
telerik:GridDateTimeColumn
DataFormatString
=
"{0:dd/MM/yyyy HH:mm}"
PickerType
=
"DateTimePicker"
DataField
=
"Data"
DataType
=
"System.DateTime"
HeaderStyle-Width
=
"100px"
ItemStyle-Width
=
"100px"
FooterStyle-Width
=
"100px"
FilterControlWidth
=
"100px"
FilterControlAltText
=
"Filter Data column"
HeaderText="<%$Resources:Resource, DateTask %>" FilterImageUrl="../App_Themes/ICTTheme/immagini/u58.png"
SortExpression="Data" UniqueName="Data"
AutoPostBackOnFilter="true" CurrentFilterFunction="EqualTo">
</
telerik:GridDateTimeColumn
>
<
telerik:GridTemplateColumn
Display
=
"false"
DataField
=
"Recurrent"
HeaderText="<%$Resources:Resource, Frequency %>" SortExpression="Recurrent" FilterImageUrl="../App_Themes/ICTTheme/immagini/u58.png"
HeaderStyle-Width="30px" ItemStyle-Width="30px" FooterStyle-Width="30px" FilterControlWidth="30px" UniqueName="Recurrent" FilterListOptions="VaryByDataTypeAllowCustom" DataType="System.String"
AutoPostBackOnFilter="true" CurrentFilterFunction="Contains">
<
ItemTemplate
>
<%#Eval("RecurrentText") %>
</
ItemTemplate
>
<
EditItemTemplate
>
<
telerik:RadComboBox
SelectedValue='<%#Bind("Recurrent") %>' runat="server" ID="cmbRecurrent" >
<
Items
>
<
telerik:RadComboBoxItem
Value
=
"0"
Text
=
"no"
Selected
=
"true"
/>
<
telerik:RadComboBoxItem
Value
=
"1"
Text
=
"yes"
Selected
=
"false"
/>
</
Items
>
</
telerik:RadComboBox
>
</
EditItemTemplate
>
</
telerik:GridTemplateColumn
>
<
telerik:GridBoundColumn
DataField
=
"RecurrentText"
HeaderText
=
"RecurrentText"
SortExpression
=
"RecurrentText"
UniqueName
=
"RecurrentH"
Display
=
"false"
ReadOnly
=
"true"
>
</
telerik:GridBoundColumn
>
<
telerik:GridTemplateColumn
Display
=
"false"
UniqueName
=
"Cadence"
DataField
=
"Cadence"
HeaderText
=
"Frequency"
SortExpression
=
"Cadence"
FilterImageUrl
=
"../App_Themes/ICTTheme/immagini/u58.png"
HeaderStyle-Width
=
"30px"
ItemStyle-Width
=
"30px"
FooterStyle-Width
=
"30px"
FilterControlWidth
=
"30px"
AutoPostBackOnFilter
=
"true"
CurrentFilterFunction
=
"Contains"
>
<
ItemTemplate
>
<%--<%#Eval("RecurrentTypeText") %> -
<%#Eval("Cadence") %>--%>
<%#Eval("CadenceAndRecurrentType") %>
</
ItemTemplate
>
<
EditItemTemplate
>
<
telerik:RadComboBox
SelectedValue='<%#Bind("RecurrentType") %>' ID="cmbCadency" runat="server" DataSourceID="odsCadency" DataTextField="Value" DataValueField="Key" /><
br
/>
<
telerik:RadNumericTextBox
runat
=
"server"
ID
=
"txtCadency"
Type
=
"Number"
DataType
=
"Int32"
dbValue='<%#Bind("Cadence") %>' >
<
NumberFormat
DecimalDigits
=
"0"
/>
</
telerik:RadNumericTextBox
><
br
/>
<
asp:CustomValidator
runat
=
"server"
ID
=
"recurrentValidation"
ControlToValidate
=
"cmbRecurrent"
ErrorMessage="<%$Resources:Resource, MissCadency %>" ForeColor="Red" ValidationGroup="SearchResultGorup"
OnServerValidate="CadencyValidation" />
</
EditItemTemplate
>
</
telerik:GridTemplateColumn
>
<
telerik:GridBoundColumn
ReadOnly
=
"true"
Visible
=
"false"
Display
=
"false"
DataField
=
"TaskGroup"
/>
<
telerik:GridTemplateColumn
Display
=
"false"
HeaderStyle-Width
=
"30px"
ItemStyle-Width
=
"30px"
FooterStyle-Width
=
"30px"
FilterControlWidth
=
"30px"
UniqueName
=
"CadenceExpiring"
DataField
=
"CadenceExpiring"
HeaderText="<%$Resources:Resource, CadenceExpiring %>" FilterImageUrl="../App_Themes/ICTTheme/immagini/u58.png"
AutoPostBackOnFilter="true" CurrentFilterFunction="EqualTo">
<
ItemTemplate
>
<%#String.Format("{0:dd/MM/yyyy}", Eval("CadenceExpiring"))%>
</
ItemTemplate
>
<
EditItemTemplate
>
<
telerik:RadDatePicker
runat
=
"server"
ID
=
"pckExpiringCadence"
DbSelectedDate='<%#Bind("CadenceExpiring") %>' />
<
asp:CustomValidator
runat
=
"server"
ID
=
"recurrentValidation2"
ControlToValidate
=
"cmbRecurrent"
ValidateEmptyText
=
"true"
ErrorMessage="<%$Resources:Resource, CedenceExpiringMissing %>" ForeColor="Red" ValidationGroup="SearchResultGorup"
OnServerValidate="UntilDateValidation" />
</
EditItemTemplate
>
</
telerik:GridTemplateColumn
>
<
telerik:GridTemplateColumn
UniqueName
=
"ResultDscr"
HeaderText="<%$Resources:Resource, TaskResult %>" SortExpression="ResultDscr" DataField="ResultDscr" FilterImageUrl="../App_Themes/ICTTheme/immagini/u58.png"
HeaderStyle-Width="30px" ItemStyle-Width="30px" FooterStyle-Width="30px" FilterControlWidth="30px" AutoPostBackOnFilter="true" CurrentFilterFunction="Contains">
<
ItemTemplate
>
<%#Resources.Resource.ResourceManager.GetString(Enum.GetName(typeof(TaskExtendedLogic.ResultEnum), Eval("Result")))%>
</
ItemTemplate
>
<
EditItemTemplate
>
<
telerik:RadComboBox
runat
=
"server"
ID
=
"ResultComboBox"
DataSource="<%#GetValues()%>"
SelectedValue='<%#Bind("Result") %>' DataTextField="ResultName" DataValueField="ResultID" >
</
telerik:RadComboBox
>
</
EditItemTemplate
>
</
telerik:GridTemplateColumn
>
<%---<
telerik:GridBoundColumn
DataField
=
"Notes"
FilterControlAltText
=
"Filter Notes column"
HeaderText
=
"Notes"
SortExpression
=
"Notes"
UniqueName
=
"Notes"
>
</
telerik:GridBoundColumn
>---%>
<
telerik:GridTemplateColumn
HeaderText
=
"Notes"
SortExpression
=
"Notes"
UniqueName
=
"Notes"
FilterImageUrl
=
"../App_Themes/ICTTheme/immagini/u58.png"
EditFormColumnIndex
=
"1"
DataField
=
"Notes"
Visible
=
"false"
ReadOnly
=
"false"
>
<
ItemTemplate
>
<
asp:Label
runat
=
"server"
ID
=
"Notes"
Text='<%# Eval("Notes") %>'></
asp:Label
>
</
ItemTemplate
>
<
EditItemTemplate
>
<
asp:CustomValidator
runat
=
"server"
ID
=
"NoteValidator"
ControlToValidate
=
"ResultComboBox"
ValidateEmptyText
=
"true"
ValidationGroup
=
"SearchResultGorup"
OnServerValidate
=
"ValidateNote"
ForeColor
=
"Red"
ErrorMessage
=
"Please, write your notes below."
>
</
asp:CustomValidator
> <
br
/>
<
asp:TextBox
runat
=
"server"
Columns
=
"20"
Rows
=
"5"
TextMode
=
"MultiLine"
ID
=
"Notes"
Text='<%# Bind("Notes") %>'></
asp:TextBox
>
</
EditItemTemplate
>
</
telerik:GridTemplateColumn
>
<
telerik:GridButtonColumn
CommandName
=
"Edit"
Text
=
"Edit"
UniqueName
=
"EditColumn"
HeaderStyle-Width
=
"20px"
ItemStyle-Width
=
"20px"
FooterStyle-Width
=
"20px"
FilterControlWidth
=
"20px"
ButtonType
=
"ImageButton"
ImageUrl
=
"~/App_Themes/ICTTheme/immagini/edit.png"
>
<
ItemStyle
HorizontalAlign
=
"Center"
CssClass
=
"MyImageButton"
></
ItemStyle
>
</
telerik:GridButtonColumn
>
<
telerik:GridButtonColumn
CommandArgument
=
"Delete"
CommandName
=
"Delete"
ConfirmText
=
"Are you sure that you want to delete this element?"
ConfirmTitle
=
"Confirm Deletion"
FilterControlAltText
=
"Filter DeleteColumn column"
HeaderStyle-Width
=
"20px"
ItemStyle-Width
=
"20px"
FooterStyle-Width
=
"20px"
FilterControlWidth
=
"20px"
Text
=
"Delete"
UniqueName
=
"DeleteColumn"
ButtonType
=
"ImageButton"
ImageUrl
=
"~/App_Themes/ICTTheme/immagini/u39.png"
>
<
ItemStyle
HorizontalAlign
=
"Center"
CssClass
=
"MyImageButton"
></
ItemStyle
>
</
telerik:GridButtonColumn
>
</
Columns
>
</
MasterTableView
>
<
FilterMenu
EnableImageSprites
=
"False"
>
</
FilterMenu
>
<
HeaderContextMenu
CssClass
=
"GridContextMenu GridContextMenu_Default"
>
</
HeaderContextMenu
>
</
telerik:RadGrid
>
<
asp:ObjectDataSource
ID
=
"odsTask"
runat
=
"server"
UpdateMethod
=
"Update"
InsertMethod
=
"Insert"
DeleteMethod
=
"Delete"
SelectMethod
=
"FilteredView"
TypeName
=
"Aruba.ICT.Business.ExtendtedLogic.TaskExtendedLogic"
oninserted
=
"odsTask_Inserted"
ondeleted
=
"odsTask_Deleted"
onupdated
=
"odsTask_Updated"
>
<
SelectParameters
>
<
asp:ControlParameter
ControlID
=
"DatePickerFrom"
PropertyName
=
"SelectedDate"
Type
=
"DateTime"
Name
=
"dateTimeFrom"
/>
<
asp:ControlParameter
ControlID
=
"DatePickerTo"
PropertyName
=
"SelectedDate"
Type
=
"DateTime"
Name
=
"dateTimeTo"
/>
</
SelectParameters
>
</
asp:ObjectDataSource
>
<
asp:ObjectDataSource
ID
=
"odsOperationsTask"
runat
=
"server"
DataObjectTypeName
=
"Aruba.ICT.Business.ExtendedObject.OperationsTaskObject"
SelectMethod
=
"List"
TypeName
=
"Aruba.ICT.Business.ExtendtedLogic.OperationsTaskExtendedLogic"
>
</
asp:ObjectDataSource
>
<
asp:ObjectDataSource
runat
=
"server"
SelectMethod
=
"ListRecurrentType"
TypeName
=
"Aruba.ICT.Business.ExtendtedLogic.TaskExtendedLogic"
ID
=
"odsCadency"
/>
<
asp:ObjectDataSource
ID
=
"odsUsers"
runat
=
"server"
SelectMethod
=
"ListAll"
TypeName
=
"Aruba.ICT.Business.ExtendtedLogic.UtentiView"
>
<
SelectParameters
>
<
asp:Parameter
Type
=
"Boolean"
Name
=
"ShowDeleted"
DefaultValue
=
"false"
/>
</
SelectParameters
>
</
asp:ObjectDataSource
>
SELECT
b.MenuTitle, b.RECID,a.Status,b.Img,
CASE
WHEN
b.ParentRECID
IS
NULL
then
NULL
ELSE
b.ParentRECID
END
AS
ParentRECID,b.FilePath
FROM
tblAdmin_Access a
LEFT
JOIN
tblMenu b
ON
(a.MenuRECID = b.RECID)
WHERE
a.AdminRECID =
"7fae422d-17a1-4109-9990-2dc284e2439e"
AND
a.Status =
"A"
ORDER
BY
b.SeqNo;
Hello,
I have RadGrid, and NestedViewTemplate with other one grid inside, which fills on expand, but when i expand a row the first grid changes width of columns. Both of them have
TableLayout="Fixed" Width="100%"
Screen in attach
Andrey
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
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
<%@ 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
>