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