or
<
telerik:RadGrid
runat
=
"server"
style
=
"z-index: 1; left: 10px; top: 450px; position: absolute"
CellSpacing
=
"0"
DataSourceID
=
"processos"
GridLines
=
"None"
ID
=
"rg_processos"
AutoGenerateColumns
=
"False"
>
<
headercontextmenu
cssclass
=
"GridContextMenu GridContextMenu_Default"
>
</
headercontextmenu
>
<
mastertableview
datasourceid
=
"processos"
>
<
commanditemsettings
exporttopdftext
=
"Export to PDF"
/>
<
rowindicatorcolumn
filtercontrolalttext
=
"Filter RowIndicator column"
>
<
HeaderStyle
Width
=
"20px"
/>
</
rowindicatorcolumn
>
<
expandcollapsecolumn
filtercontrolalttext
=
"Filter ExpandColumn column"
>
<
HeaderStyle
Width
=
"20px"
/>
</
expandcollapsecolumn
>
<
Columns
>
<
telerik:GridClientSelectColumn
ButtonType
=
"ImageButton"
FilterControlAltText
=
"Filter column1 column"
ImageUrl
=
"~/images/select_16_mouse.png"
Text
=
"Seleccionar"
UniqueName
=
"column1"
>
</
telerik:GridClientSelectColumn
>
<
telerik:GridBoundColumn
DataField
=
"Sinistrado_ID"
DataType
=
"System.Int32"
FilterControlAltText
=
"Filter Sinistrado_ID column"
HeaderText
=
"Sinistrado_ID"
SortExpression
=
"Sinistrado_ID"
UniqueName
=
"Sinistrado_ID"
>
</
telerik:GridBoundColumn
>
<
telerik:GridBoundColumn
DataField
=
"Data_sinistro"
DataType
=
"System.DateTime"
FilterControlAltText
=
"Filter Data_sinistro column"
HeaderText
=
"Data_sinistro"
SortExpression
=
"Data_sinistro"
UniqueName
=
"Data_sinistro"
>
</
telerik:GridBoundColumn
>
<
telerik:GridBoundColumn
DataField
=
"Nome"
FilterControlAltText
=
"Filter Nome column"
HeaderText
=
"Criado/Alterado"
SortExpression
=
"Nome"
UniqueName
=
"Nome"
>
</
telerik:GridBoundColumn
>
<
telerik:GridBoundColumn
DataField
=
"quando"
DataType
=
"System.DateTime"
FilterControlAltText
=
"Filter quando column"
HeaderText
=
"Criado/Alterado"
SortExpression
=
"quando"
UniqueName
=
"quando"
>
</
telerik:GridBoundColumn
>
</
Columns
>
<
editformsettings
>
<
editcolumn
filtercontrolalttext
=
"Filter EditCommandColumn column"
>
</
editcolumn
>
</
editformsettings
>
</
mastertableview
>
<
clientsettings
>
<
selecting
allowrowselect
=
"True"
/>
</
clientsettings
>
<
filtermenu
enableimagesprites
=
"False"
>
</
filtermenu
>
</
telerik:RadGrid
>
<
Columns
>
<
telerik:GridTemplateColumn
ItemStyle-VerticalAlign
=
"Middle"
>
<
ItemTemplate
>
<
asp:ImageButton
runat
=
"server"
ImageUrl
=
"~/images/select_16_mouse.png"
/>
</
ItemTemplate
>
</
telerik:GridTemplateColumn
>
<
telerik:GridClientSelectColumn
ButtonType
=
"ImageButton"
FilterControlAltText
=
"Filter column1 column"
ImageUrl
=
"~/images/select_16_mouse.png"
Text
=
"Seleccionar"
UniqueName
=
"column1"
>
</
telerik:GridClientSelectColumn
>
<
telerik:GridBoundColumn
DataField
=
"Sinistrado_ID"
DataType
=
"System.Int32"
FilterControlAltText
=
"Filter Sinistrado_ID column"
HeaderText
=
"Sinistrado_ID"
SortExpression
=
"Sinistrado_ID"
UniqueName
=
"Sinistrado_ID"
>
</
telerik:GridBoundColumn
>
<
telerik:GridBoundColumn
DataField
=
"Data_sinistro"
DataType
=
"System.DateTime"
FilterControlAltText
=
"Filter Data_sinistro column"
HeaderText
=
"Data_sinistro"
SortExpression
=
"Data_sinistro"
UniqueName
=
"Data_sinistro"
>
</
telerik:GridBoundColumn
>
<
telerik:GridBoundColumn
DataField
=
"Nome"
FilterControlAltText
=
"Filter Nome column"
HeaderText
=
"Criado/Alterado"
SortExpression
=
"Nome"
UniqueName
=
"Nome"
>
</
telerik:GridBoundColumn
>
<
telerik:GridBoundColumn
DataField
=
"quando"
DataType
=
"System.DateTime"
FilterControlAltText
=
"Filter quando column"
HeaderText
=
"Criado/Alterado"
SortExpression
=
"quando"
UniqueName
=
"quando"
>
</
telerik:GridBoundColumn
>
</
Columns
>
Protected
Sub
RadGrid1_InsertCommand(
ByVal
source
As
Object
,
ByVal
e
As
Telerik.Web.UI.GridCommandEventArgs)
'This event is not firing when I click on the 'Insert' link. What event do I need to use instead?
Dim
insertedItem
As
GridEditFormInsertItem =
DirectCast
(e.Item, GridEditFormInsertItem)
Dim
parentItem
As
GridDataItem = e.Item.OwnerTableView.ParentItem
Dim
datakey
As
String
= parentItem.OwnerTableView.DataKeyValues(parentItem.ItemIndex)(
"FacilityID"
).ToString()
Dim
contactId
As
Integer
= (TryCast(insertedItem(
"colContactId"
).Controls(0), DropDownList)).SelectedValue
Dim
conn
As
New
SqlConnection(ConfigurationManager.ConnectionStrings(
"ConnectionString"
).ConnectionString)
Try
conn.Open()
Dim
insertQuery
As
String
=
"INSERT into FacilityContacts(FacilityId, ContactID) values('"
& datakey &
"','"
& contactId &
"')"
Dim
cmd
As
New
SqlCommand(insertQuery, conn)
cmd.ExecuteNonQuery()
conn.Close()
Catch
ex
As
Exception
RadGrid1.Controls.Add(
New
LiteralControl(
"Unable to insert contact. Reason: "
+ ex.Message))
e.Canceled =
True
Finally
End
Try
End
Sub
<
telerik:RadGrid
ID
=
"RadGrid1"
ShowStatusBar
=
"True"
DataSourceID
=
"dsFacilityList"
runat
=
"server"
PageSize
=
"7"
AllowSorting
=
"True"
AllowPaging
=
"True"
GridLines
=
"None"
CellSpacing
=
"0"
AllowAutomaticInserts
=
"True"
AllowAutomaticUpdates
=
"True"
>
<
PagerStyle
Mode
=
"NumericPages"
></
PagerStyle
>
<
MasterTableView
DataSourceID
=
"dsFacilityList"
AllowMultiColumnSorting
=
"True"
PageSize
=
"20"
CommandItemDisplay
=
"Top"
DataKeyNames
=
"FacilityID"
EditMode
=
"EditForms"
>
<
EditItemTemplate
>
</
EditItemTemplate
>
<
DetailTables
>
<
telerik:GridTableView
runat
=
"server"
DataKeyNames
=
"FacilityID"
DataSourceID
=
"dsFacilityContactList"
CommandItemDisplay
=
"Top"
AutoGenerateColumns
=
"False"
AllowAutomaticDeletes
=
"True"
AllowAutomaticInserts
=
"False"
>
<
EditItemTemplate
>
</
EditItemTemplate
>
<
ParentTableRelation
>
<
telerik:GridRelationFields
DetailKeyField
=
"FacilityID"
MasterKeyField
=
"FacilityID"
/>
</
ParentTableRelation
>
<
CommandItemSettings
ExportToPdfText
=
"Export to PDF"
/>
<
RowIndicatorColumn
FilterControlAltText
=
"Filter RowIndicator column"
>
<
HeaderStyle
Width
=
"20px"
/>
</
RowIndicatorColumn
>
<
ExpandCollapseColumn
FilterControlAltText
=
"Filter ExpandColumn column"
>
<
HeaderStyle
Width
=
"20px"
/>
</
ExpandCollapseColumn
>
<
Columns
>
<
telerik:GridTemplateColumn
DataField
=
"ContactID"
FilterControlAltText
=
"Filter column column"
UniqueName
=
"colContactId"
EditFormHeaderTextFormat
=
""
>
<
EditItemTemplate
>
Select Contact:
<
asp:DropDownList
ID
=
"cboContactID"
runat
=
"server"
>
</
asp:DropDownList
>
</
EditItemTemplate
>
<
ItemTemplate
>
<
asp:Label
ID
=
"ContactIDLabel"
runat
=
"server"
Text='<%# Eval("ContactLongDesc") %>'></
asp:Label
>
</
ItemTemplate
>
</
telerik:GridTemplateColumn
>
</
Columns
>
<
EditFormSettings
>
<
EditColumn
FilterControlAltText
=
"Filter EditCommandColumn column"
>
</
EditColumn
>
</
EditFormSettings
>
</
telerik:GridTableView
>
</
DetailTables
>
<
CommandItemSettings
ExportToPdfText
=
"Export to PDF"
></
CommandItemSettings
>
<
RowIndicatorColumn
FilterControlAltText
=
"Filter RowIndicator column"
>
</
RowIndicatorColumn
>
<
ExpandCollapseColumn
FilterControlAltText
=
"Filter ExpandColumn column"
Visible
=
"True"
>
</
ExpandCollapseColumn
>
<
SortExpressions
>
</
SortExpressions
>
<
EditFormSettings
>
<
EditColumn
FilterControlAltText
=
"Filter EditCommandColumn column"
>
</
EditColumn
>
</
EditFormSettings
>
</
MasterTableView
>
<
FilterMenu
EnableImageSprites
=
"False"
>
</
FilterMenu
>
<
HeaderContextMenu
CssClass
=
"GridContextMenu GridContextMenu_Default"
>
</
HeaderContextMenu
>
</
telerik:RadGrid
>