or
<
telerik:RadGrid
ID
=
"grdProperties"
runat
=
"server"
AllowAutomaticDeletes
=
"True"
AllowAutomaticInserts
=
"True"
AllowAutomaticUpdates
=
"True"
AutoGenerateDeleteColumn
=
"True"
AutoGenerateEditColumn
=
"True"
AutoGenerateHierarchy
=
"True"
CellSpacing
=
"0"
DataSourceID
=
"edsProps"
GridLines
=
"None"
SkinID
=
"FewColumnsFewRecords"
>
<
ClientSettings
>
<
Selecting
CellSelectionMode
=
"None"
></
Selecting
>
</
ClientSettings
>
<
MasterTableView
AutoGenerateColumns
=
"False"
DataKeyNames
=
"PrpID"
DataSourceID
=
"edsProps"
>
<
CommandItemSettings
ExportToPdfText
=
"Export to PDF"
></
CommandItemSettings
>
<
RowIndicatorColumn
Visible
=
"True"
FilterControlAltText
=
"Filter RowIndicator column"
>
</
RowIndicatorColumn
>
<
ExpandCollapseColumn
Visible
=
"True"
FilterControlAltText
=
"Filter ExpandColumn column"
>
</
ExpandCollapseColumn
>
<
Columns
>
<
telerik:GridBoundColumn
DataField
=
"PrpID"
DataType
=
"System.Int32"
FilterControlAltText
=
"Filter PrpID column"
HeaderText
=
"PrpID"
ReadOnly
=
"True"
SortExpression
=
"PrpID"
UniqueName
=
"PrpID"
Visible
=
"False"
>
</
telerik:GridBoundColumn
>
<
telerik:GridBoundColumn
DataField
=
"PrpName"
FilterControlAltText
=
"Filter PrpName column"
HeaderText
=
"Prop. Name"
SortExpression
=
"PrpName"
UniqueName
=
"PrpName"
>
</
telerik:GridBoundColumn
>
<
telerik:GridBoundColumn
DataField
=
"PrpQuestion"
FilterControlAltText
=
"Filter PrpQuestion column"
HeaderText
=
"Question Text"
SortExpression
=
"PrpQuestion"
UniqueName
=
"PrpQuestion"
>
</
telerik:GridBoundColumn
>
<
telerik:GridTemplateColumn
DataField
=
"PrpAnswerType"
FilterControlAltText
=
"Filter PrpAnswerType column"
HeaderText
=
"Answer Type"
SortExpression
=
"PrpAnswerType"
UniqueName
=
"PrpAnswerType"
>
<
EditItemTemplate
>
<
telerik:RadComboBox
ID
=
"RadComboBox1"
runat
=
"server"
SelectedValue='<%# Bind("PrpAnswerType") %>'>
<
Items
>
<
telerik:RadComboBoxItem
runat
=
"server"
Text
=
"Integer"
Value
=
"1"
/>
<
telerik:RadComboBoxItem
runat
=
"server"
Text
=
"Decimal"
Value
=
"2"
/>
<
telerik:RadComboBoxItem
runat
=
"server"
Text
=
"Currency"
Value
=
"3"
/>
<
telerik:RadComboBoxItem
runat
=
"server"
Text
=
"Boolean"
Value
=
"4"
/>
<
telerik:RadComboBoxItem
runat
=
"server"
Text
=
"Text"
Value
=
"5"
/>
<
telerik:RadComboBoxItem
runat
=
"server"
Text
=
"Custom Options"
Value
=
"6"
/>
</
Items
>
</
telerik:RadComboBox
>
</
EditItemTemplate
>
<
ItemTemplate
>
<
asp:Label
ID
=
"PrpAnswerTypeLabel"
runat
=
"server"
OnDataBinding
=
"PrpAnswerTypeLabel_DataBinding"
Text='<%# Eval("PrpAnswerType") %>'></
asp:Label
>
</
ItemTemplate
>
</
telerik:GridTemplateColumn
>
<
telerik:GridButtonColumn
CommandName
=
"Select"
FilterControlAltText
=
"Filter AddColumnOption column"
Text
=
"Add Column Option"
UniqueName
=
"AddColumnOption"
>
</
telerik:GridButtonColumn
>
</
Columns
>
<
EditFormSettings
>
<
EditColumn
FilterControlAltText
=
"Filter EditCommandColumn column"
>
</
EditColumn
>
</
EditFormSettings
>
</
MasterTableView
>
<
FilterMenu
EnableImageSprites
=
"False"
>
</
FilterMenu
>
</
telerik:RadGrid
>
<
asp:EntityDataSource
ID
=
"edsProps"
runat
=
"server"
ConnectionString
=
"name=kdEntities"
DefaultContainerName
=
"kdEntities"
EnableDelete
=
"True"
EnableFlattening
=
"False"
EnableInsert
=
"True"
EnableUpdate
=
"True"
EntitySetName
=
"Properties"
>
</
asp:EntityDataSource
>
<%--<ajaxToolkit:ModalPopupExtender ID="modalEditor" BackgroundCssClass="modalBackground" PopupControlID="pnlEditorPopup" TargetControlID="mpLauncher" runat="server"></ajaxToolkit:ModalPopupExtender>--%>
<telerik:RadWindow ID="winEditorPopup" Modal="true" runat="server" VisibleStatusbar="true" Title="Edit Alert Group" AutoSize="true" Behaviors="None"> <ContentTemplate><!-- Insert Content Here -->
</ContentTemplate> </telerik:RadWindow>
Public Sub Launch(ByVal groupLauncherID As String, ByVal groupEmailAddressIDs As ArrayList, ByVal groupEmailGroupIDs As ArrayList, ByVal groupFaxNumberIDs As ArrayList) LoadAlertGroup(groupLauncherID, groupEmailAddressIDs, groupEmailGroupIDs, groupFaxNumberIDs) 'modalEditor.Show() winEditorPopup.VisibleOnPageLoad = True lstShowType.SelectedValue = 0 cbxGroupsOnly.Checked = False End Sub
groupEditor.Launch(ID, AlertGroup.EmailAddressIDs, AlertGroup.EmailGroupIDs, AlertGroup.FaxNumberIDs)
Private Sub DisableRadGridCommand(ByVal dtitem As GridDataItem, ByVal colname As String)
Try
For Each ctrl In dtitem(colname).Controls
If (TypeOf ctrl Is WebControl) Then
CType(ctrl, WebControl).Enabled = False
End If
Next
Catch ex As Exception
End Try
End Sub