or

<telerik:RadGrid ID="RadGrid_Banner_Home_Main" runat="server" AllowFilteringByColumn="True" AutoGenerateColumns="false" AllowSorting="True" PageSize="10" ShowFooter="False" ShowGroupPanel="False" AllowPaging="true" Skin="Vista" EnableLinqExpressions="false"> <PagerStyle Mode="NextPrevAndNumeric" /> <ExportSettings IgnorePaging="true" FileName="banner_Export" Pdf-AllowAdd="true" Pdf-AllowCopy="true" Pdf-AllowPrinting="true" Pdf-PaperSize="A4" Pdf-Creator="a1" OpenInNewWindow="true" ExportOnlyData="true" /> <MasterTableView DataKeyNames="banner_id" HorizontalAlign="NotSet" AutoGenerateColumns="False" AllowFilteringByColumn="True" AllowSorting="true" AlternatingItemStyle-BackColor="#f3f3f3" CommandItemDisplay="Top" ClientDataKeyNames="banner_id"> <CommandItemSettings ShowExportToWordButton="false" ShowExportToExcelButton="false" ShowExportToPdfButton="false" ShowExportToCsvButton="false" ShowAddNewRecordButton="false" ShowRefreshButton="false" /> <NoRecordsTemplate> Banner not available </NoRecordsTemplate> <SortExpressions> <telerik:GridSortExpression FieldName="image" SortOrder="Ascending" /> </SortExpressions> <Columns> <telerik:GridTemplateColumn HeaderText="Banner" DataField="image" UniqueName="image" HeaderStyle-Width="100" ItemStyle-Width="100" ItemStyle-Height="100" AutoPostBackOnFilter="true" CurrentFilterFunction="Contains" ShowFilterIcon="false" AllowFiltering="false" GroupByExpression="image [Banner] Group By image"> <ItemTemplate> <asp:Label ID="lbl_img_path" runat="server" Text='<%#Eval("image")%>' Visible="false"></asp:Label> <%# IIf(Container.DataItem("banner_type") <> "HTML", "" & "<img src=" & Gogotech.SqlHelper.of_FetchKey("FrontEndServer") & IIf(Eval("image") <> "", Eval("image"), "/images/ina.jpg") & " />" & "", "" & Eval("html") & "")%> </ItemTemplate> </telerik:GridTemplateColumn> </Columns> </MasterTableView> </telerik:RadGrid><telerik:RadTreeList ID="RadTreeView2" runat="server" DataKeyNames="ProductID" ParentDataKeyNames="ParentID" Height="350px" OnTreeNodeDataBound="RadTreeView2_TreeNodeDataBound" OnItemCommand="RadTreeView2_UpdateCommand" OnItemDataBound="RadTreeView2_ItemDataBound" OnCancelCommand="RadTreeView2_CancelCommand" OnNeedDataSource="RadTreeList2_NeedDataSource" EnableViewState="true" Width="100%" EditMode="InPlace" AllowMultiItemEdit="true" AutoGenerateColumns="False"> <Columns> <telerik:TreeListBoundColumn DataField="ProductName" UniqueName="ProductName" Resizable="true" HeaderStyle-Width="100%" HeaderText="Product Name" > </telerik:TreeListBoundColumn> <telerik:TreeListNumericColumn DataField="Supply_FTE" UniqueName="Supply_FTE" HeaderText="Supply FTE" Resizable ="true" DecimalDigits="2" HeaderStyle-HorizontalAlign="Center" HeaderStyle-Width="100px" ItemStyle-Width="100px" NumericType="Number" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:N2}"> </telerik:TreeListNumericColumn> <telerik:TreeListNumericColumn DataField="Supply_Percent" UniqueName="Supply_Percent" Resizable ="true" NumericType="Percent" HeaderText="Supply Percent" HeaderStyle-HorizontalAlign="Center" HeaderStyle-Width="100px" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:P2}"> </telerik:TreeListNumericColumn> <telerik:TreeListBoundColumn DataField="ResID" UniqueName="ResID" HeaderText="ResID" MaxWidth="0" Visible="false"> </telerik:TreeListBoundColumn> <telerik:TreeListBoundColumn DataField="UserID" UniqueName="UserID" Visible="false" MaxWidth="0" HeaderText="UserID"> </telerik:TreeListBoundColumn> <telerik:TreeListBoundColumn DataField="OrgID" UniqueName="OrgID" Visible="false" MaxWidth="0" HeaderText="OrgID"> </telerik:TreeListBoundColumn> <telerik:TreeListEditCommandColumn UniqueName="Edit" ShowAddButton="False" ButtonType="ImageButton" Resizable="false" EditText="Edit" UpdateText="Update" Display="true" Visible="true" HeaderStyle-Width="55px" ItemStyle-Width="55px" MinWidth="55px" MaxWidth="55px" > </telerik:TreeListEditCommandColumn> </Columns> <ClientSettings> <Scrolling AllowScroll="true" UseStaticHeaders="true" SaveScrollPosition="true" /> <Resizing AllowColumnResize="False" EnableRealTimeResize="true" /> </ClientSettings></telerik:RadTreeList>
<telerik:RadGrid ID="RadGrid1" DataSourceID="ds_Logbook" AutoGenerateColumns="False" AllowSorting="True" AllowAutomaticDeletes="False" AllowAutomaticInserts="True" AllowAutomaticUpdates="True" AllowPaging="false" GridLines="None" EnableEmbeddedSkins="false" Skin="RAMtrackStdGrid" runat="server"> <MasterTableView CommandItemDisplay="TopAndBottom" DataKeyNames="Logbook_id,Fault_Id" DataSourceID="ds_Logbook" HorizontalAlign="NotSet" EditMode="Batch" AutoGenerateColumns="False"> <BatchEditingSettings EditType="Cell" /> <Columns> <telerik:GridTemplateColumn UniqueName="LogDay" HeaderText="Day" DataField="LogDate" HeaderStyle-Width="40px"> <ItemTemplate> <asp:Label ID="lbl_LogDay" Text='<%# Eval("LogDay") %>' runat="server" /> </ItemTemplate> <EditItemTemplate> <asp:TextBox ID="txt_LogDay" Text='<%# Bind("LogDay") %>' Width="20px" runat="server" /> </EditItemTemplate> </telerik:GridTemplateColumn> <telerik:GridDropDownColumn UniqueName="Activity_Id" HeaderText="Activity Code" DataField="Activity_Id" ListValueField="Activity_Id" ColumnEditorID="GridDropDownColumnEditor1" ListTextField="ActivityCode" DataSourceID="ds_ActivityCodes" SortExpression="Activity_Id" HeaderStyle-Width="60px"> <ItemStyle Width="70px" /> <ColumnValidationSettings EnableRequiredFieldValidation="true"> <RequiredFieldValidator ForeColor="Red" Text="*This field is required"> </RequiredFieldValidator> </ColumnValidationSettings> </telerik:GridDropDownColumn> <telerik:GridTemplateColumn UniqueName="StartTime" HeaderText="Start Time" DataField="StartTime" HeaderStyle-Width="80px"> <ItemTemplate> <asp:Label ID="lbl_StartTime" Text='<%# Eval("StartTime") %>' runat="server" /> </ItemTemplate> <EditItemTemplate> <telerik:RadTimePicker ID="tp_StartTime" Width="60px" SelectedDate='<%# Bind("StartTime") %>' Skin="Metro" runat="server"> <DateInput ID="DateInput2" CssClass="TimeField" Width="60px" runat="server"> </DateInput> <TimeView ID="TimeView1" Interval="00:30:00" Columns="6" runat="server"></TimeView> </telerik:RadTimePicker> </EditItemTemplate> </telerik:GridTemplateColumn> <telerik:GridTemplateColumn UniqueName="StopTime" HeaderText="Stop Time" DataField="StopTime" HeaderStyle-Width="80px"> <ItemTemplate> <asp:Label ID="lbl_StopTime" Text='<%# Eval("StopTime") %>' runat="server" /> </ItemTemplate> <EditItemTemplate> <telerik:RadTimePicker ID="tp_StopTime" Width="60px" SelectedDate='<%# Bind("StopTime") %>' Skin="Metro" runat="server"> <DateInput ID="DateInput2" CssClass="TimeField" Width="60px" runat="server"> </DateInput> <TimeView ID="TimeView1" Interval="00:30:00" Columns="6" runat="server"></TimeView> </telerik:RadTimePicker> </EditItemTemplate> </telerik:GridTemplateColumn> <telerik:GridTemplateColumn UniqueName="ProgComment" HeaderText="Comments" DataField="ProgComment" HeaderStyle-Width="300px"> <ItemTemplate> <asp:Label ID="lbl_ProgComment" Text='<%# Eval("ProgComment") %>' runat="server" /> </ItemTemplate> <EditItemTemplate> <telerik:RadEditor ID="re_ProgComment" Width="280px" Height="200px" EditModes="Design" Content='<%# Eval("ProgComment") %>' Skin="Metro" runat="server"> <Tools> <telerik:EditorToolGroup> <telerik:EditorTool Name="Bold"></telerik:EditorTool> <telerik:EditorTool Name="Italic"></telerik:EditorTool> <telerik:EditorTool Name="Underline"></telerik:EditorTool> <telerik:EditorTool Name="Cut"></telerik:EditorTool> <telerik:EditorTool Name="Copy"></telerik:EditorTool> <telerik:EditorTool Name="Paste"></telerik:EditorTool> <telerik:EditorTool Name="AjaxSpellCheck"></telerik:EditorTool> </telerik:EditorToolGroup> </Tools> </telerik:RadEditor> </EditItemTemplate> </telerik:GridTemplateColumn> <telerik:GridDropDownColumn UniqueName="Event_Id" HeaderText="Incident type" DataField="Event_Id2" SortExpression="Event_Id2" ColumnEditorID="GridDropDownColumnEditor2" ListTextField="EventDescription" ListValueField="IncidentType" DataSourceID="ds_IncidentTypes" HeaderStyle-Width="100px"> </telerik:GridDropDownColumn> <telerik:GridTemplateColumn UniqueName="TimeFaultOccurred" HeaderText="Time of Incident" DataField="TimeFaultOccurred" HeaderStyle-Width="80px"> <ItemTemplate> <asp:Label ID="lbl_TimeFaultOccurred" Text='<%# Eval("TimeFaultOccurred") %>' runat="server" /> </ItemTemplate> <EditItemTemplate> <telerik:RadTimePicker ID="tp_TimeFaultOccurred" Width="60px" SelectedDate='<%# Bind("TimeFaultOccurred") %>' Skin="Metro" runat="server"> <DateInput ID="DateInput2" CssClass="TimeField" Width="60px" runat="server"> </DateInput> <TimeView ID="TimeView1" Interval="00:30:00" Columns="6" runat="server"></TimeView> </telerik:RadTimePicker> </EditItemTemplate> </telerik:GridTemplateColumn> <telerik:GridTemplateColumn UniqueName="FaultSymptom" HeaderText="Symptoms" DataField="FaultSymptom" HeaderStyle-Width="300px"> <ItemTemplate> <asp:Label ID="lbl_FaultSymptom" Text='<%# Eval("FaultSymptom") %>' runat="server" /> </ItemTemplate> <EditItemTemplate> <telerik:RadEditor ID="re_Symptoms" Width="280px" Height="200px" EditModes="Design" Content='<%# Eval("FaultSymptom") %>' Skin="Metro" runat="server"> <Tools> <telerik:EditorToolGroup> <telerik:EditorTool Name="Bold"></telerik:EditorTool> <telerik:EditorTool Name="Italic"></telerik:EditorTool> <telerik:EditorTool Name="Underline"></telerik:EditorTool> <telerik:EditorTool Name="Cut"></telerik:EditorTool> <telerik:EditorTool Name="Copy"></telerik:EditorTool> <telerik:EditorTool Name="Paste"></telerik:EditorTool> <telerik:EditorTool Name="AjaxSpellCheck"></telerik:EditorTool> </telerik:EditorToolGroup> </Tools> </telerik:RadEditor> </EditItemTemplate> </telerik:GridTemplateColumn> <telerik:GridBoundColumn UniqueName="LogDate" HeaderText="" DataField="LogDate" AllowFiltering="false" ReadOnly="true" HeaderStyle-Width="1px" > </telerik:GridBoundColumn> <telerik:GridBoundColumn UniqueName="Logbook_Id" HeaderText="" DataField="Logbook_Id" AllowFiltering="false" ReadOnly="true" HeaderStyle-Width="1px" > </telerik:GridBoundColumn> <telerik:GridBoundColumn UniqueName="Fault_Id" HeaderText="" DataField="Fault_Id" AllowFiltering="false" ReadOnly="true" HeaderStyle-Width="1px" > </telerik:GridBoundColumn> <telerik:GridBoundColumn UniqueName="status" HeaderText="" DataField="status" AllowFiltering="false" ReadOnly="true" HeaderStyle-Width="1px" > </telerik:GridBoundColumn> </Columns> </MasterTableView> <ClientSettings> <Scrolling AllowScroll="True" UseStaticHeaders="True" SaveScrollPosition="true" FrozenColumnsCount="0"></Scrolling> <ClientEvents OnCommand="gridCommand" /> </ClientSettings></telerik:RadGrid><telerik:RadGrid ID="costingGrid" runat="server" RenderMode="Auto" OnNeedDataSource="costingGrid_NeedDataSource" AllowAutomaticUpdates="true" ClientSettings-AllowKeyboardNavigation="true"><ClientSettings> <Selecting AllowRowSelect="true" /> <ClientEvents OnRowCreated="gridRowCreated" /> <Scrolling AllowScroll="true" UseStaticHeaders="true" /> </ClientSettings><MasterTableView AutoGenerateColumns="false" DataKeyNames="ID" Width="100%" EditMode="Batch" CommandItemDisplay="Top" ShowFooter="true"><BatchEditingSettings EditType="Cell" OpenEditingEvent="Click" /><Columns><telerik:GridBoundColumn UniqueName="ID" DataField="ID" Visible="false" /> <telerik:GridBoundColumn UniqueName="IsMilestone" DataField="IsMilestone" Display="false" /><telerik:GridTemplateColumn UniqueName="Title" DataField="Title" HeaderText="Title" HeaderStyle-Width="400px" > <ItemTemplate> <asp:Label ID="titleLabel" runat="server" Width="100%" Text='<%#Bind("Title") %>' /> </ItemTemplate> <EditItemTemplate> <telerik:RadTextBox ID="titleInput" runat="server" Width="100%" TextMode="MultiLine" /> </EditItemTemplate> </telerik:GridTemplateColumn><telerik:GridBoundColumn UniqueName="ExternalCosts" DataField="ExternalCosts" HeaderText="3rd Party Costs" HeaderStyle-Width="80px" DataFormatString="{0:N2}" HeaderStyle-HorizontalAlign="Right" ItemStyle-HorizontalAlign="Right" Aggregate="Sum" FooterAggregateFormatString="£{0:F2}" /></MasterTableView> </telerik:RadGrid><telerik:RadScriptBlock runat="server"> <script type="text/javascript"> function gridRowCreated(sender, args) { } </script> </telerik:RadScriptBlock>protected void costingGrid_NeedDataSource(object sender, GridNeedDataSourceEventArgs e) { costingGrid.DataSource = CurrentCosting.Lines.OrderBy(l => l.LineNumber).ToList(); }<telerik:RadHtmlChart runat="server" Width="700px" Height="500px" ID="DashboardMonthlyChart" Skin="Vista"> <PlotArea> <Series> <telerik:ColumnSeries DataFieldY="TotalClicks" Name="Total Clicks" Stacked="True"> <LabelsAppearance Visible="false"></LabelsAppearance> <TooltipsAppearance Color="White" /> </telerik:ColumnSeries> <telerik:ColumnSeries DataFieldY="TotalCalls" Name="Total Calls"> <LabelsAppearance Visible="false"></LabelsAppearance> <TooltipsAppearance Color="White" /> </telerik:ColumnSeries> <telerik:LineSeries AxisName="AdditionalAxis" Name="Cost Per Contact"> <LabelsAppearance Visible="false"></LabelsAppearance> <TooltipsAppearance Color="White" /> </telerik:LineSeries> </Series> <XAxis DataLabelsField="Month"> <LabelsAppearance RotationAngle="75" Step="1"> </LabelsAppearance> <TitleAppearance Text=""> </TitleAppearance> <AxisCrossingPoints> <telerik:AxisCrossingPoint Value = "0" /> <telerik:AxisCrossingPoint Value = "12" /> </AxisCrossingPoints> </XAxis> <YAxis> <TitleAppearance Text=""> </TitleAppearance> </YAxis> <AdditionalYAxes> <telerik:AxisY Name="AdditionalAxis" Color="Red" Width="3"> <TitleAppearance Text = "Cost Per Contact"> <TextStyle Color="Black" /> </TitleAppearance> <LabelsAppearance> <TextStyle Color="Black" /> </LabelsAppearance> </telerik:AxisY> </AdditionalYAxes> </PlotArea> <Legend> <Appearance Visible="true" Position="Top"> </Appearance> </Legend> </telerik:RadHtmlChart>Private Sub LoadDashboardDetails() Dim dtPerformance As DataTable Dim IYPPerformanceInfo As XElement = Nothing '//Rerence WCF service. Dim oypmservice As New CL_ADOMDService.WCFAdomdServiceClient '//Data returned as XElement IYPPerformanceInfo = oypmservice.GetIYPDashboardByMonth(Session("AcctNum"), ViewState("PubInitID"), ViewState("StartDate"), ViewState("EndDate"), True) ''//Convert XElement to Datatable dtPerformance = clMisc.GetDataTableFromXMLElement(IYPPerformanceInfo) '//Store data in Session Dim dtPerformanceRows As DataTable dtPerformanceRows = dtPerformance.Select("Month<>'GroupHeader'").CopyToDataTable dtPerformanceRows.Columns.Add(New DataColumn("MonthNumber", GetType(Date))) For Each dr In dtPerformanceRows.Rows dr("MonthNumber") = CDate(dr("Month")) 'Split(dr("Month").ToString.Trim, " ")(0) Next ViewState("IYPDashboard") = dtPerformanceRows 'testgrid.DataSource = dtPerformanceRows 'testgrid.DataBind() If dtPerformance IsNot Nothing Then If dtPerformanceRows.Columns.Contains("Total Clicks") = False Then dtPerformanceRows.Columns.Add("Total Clicks", GetType(Integer)) End If If dtPerformanceRows.Columns.Contains("Total Calls") = False Then dtPerformanceRows.Columns.Add("Total Calls", GetType(Integer)) End If If dtPerformanceRows.Columns.Contains("Cost Per Contact") = False Then dtPerformanceRows.Columns.Add("Cost Per Contact", GetType(Double)) End If LoadDetailChart() DashboardDetailsListView.DataSource = dtPerformanceRows.Select("", "MonthNumber Asc").CopyToDataTable DashboardDetailsListView.DataBind() End If DashboardMonthlyChart.ChartTitle.Text = ViewState("PubName") DashboardMonthlyChart.PlotArea.XAxis.AxisCrossingPoints(1).Value = Decimal.Parse(12) DashboardMonthlyChart.ChartTitle.Appearance.TextStyle.Bold = True DashboardMonthlyChart.ChartTitle.Appearance.Align = Telerik.Web.UI.HtmlChart.ChartTitleAlign.Left DashboardMonthlyChart.Legend.Appearance.TextStyle.Margin = "8" DashboardMonthlyChart.PlotArea.XAxis.MajorGridLines.Visible = False DashboardMonthlyChart.PlotArea.XAxis.MinorGridLines.Visible = False DashboardMonthlyChart.PlotArea.YAxis.MajorGridLines.Visible = True DashboardMonthlyChart.PlotArea.YAxis.MinorGridLines.Visible = False End Sub Private Sub LoadDetailChart() Dim dtMonthlyDetail As DataTable dtMonthlyDetail = ViewState("IYPDashboard") Dim dtChartData As DataTable Dim ColumnNames() As String Dim dc As DataColumn ColumnNames = "Month,Total Clicks,Total Calls,Total Contacts,Cost Per Contact,MonthNumber".Split(",") Dim view As DataView view = New DataView(dtMonthlyDetail) dtChartData = view.ToTable(True, ColumnNames).Select("", "MonthNumber Asc").CopyToDataTable For Each dc In dtChartData.Columns dc.ColumnName = dc.ColumnName.Replace(" ", "") Next DashboardMonthlyChart.DataSource = dtChartData DashboardMonthlyChart.DataBind() End Sub
<meta http-equiv="X-UA-Compatible" content="IE=edge,chrome=1" /> <%@ Page Language="C#" AutoEventWireup="true" CodeFile="Test2.aspx.cs" Inherits="Tests_Test2" %><%@ Register Assembly="Telerik.Web.UI" Namespace="Telerik.Web.UI" TagPrefix="telerik" %><!DOCTYPE html><html xmlns="http://www.w3.org/1999/xhtml"><head runat="server"> <meta http-equiv="X-UA-Compatible" content="IE=edge,chrome=1" /> <title></title></head><body> <form id="form1" runat="server"> <asp:ScriptManager EnableScriptGlobalization="true" runat="server" ID="scriptManager" EnablePartialRendering="True" /> <div> <telerik:RadDatePicker ID="RadDatePicker1" runat="server" MinDate="1900-01-01" MaxDate="2099-12-31" Width="110px"> <DateInput ID="DateInput1" runat="server" DateFormat="dd-MM-yyyy" DisplayDateFormat="dd-MM-yyyy"></DateInput> <DatePopupButton ImageUrl="~/images/calendar.png" HoverImageUrl="~/images/calendar.png" /> </telerik:RadDatePicker> until <telerik:RadDatePicker ID="RadDatePicker2" runat="server" MinDate="1900-01-01" MaxDate="2099-12-31" Width="110px"> <DateInput ID="DateInput2" runat="server" DateFormat="dd-MM-yyyy" DisplayDateFormat="dd-MM-yyyy"></DateInput> <DatePopupButton ImageUrl="~/images/calendar.png" HoverImageUrl="~/images/calendar.png" /> </telerik:RadDatePicker> </div> </form></body></html>
001.Public Class Google_Like_Filter2002. Inherits System.Web.UI.Page003. Dim dd As New DummyData004. Dim dt As New DataTable005. Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load006. If Not IsPostBack Then007. dt = dd.GenTableData2008. Me.RadGrid1.MasterTableView.Columns.Clear()009. 010. For Each dataColumn As DataColumn In dt.Columns011. Dim gridColumn As New MyCustomFilteringColumnVB()012. Me.RadGrid1.MasterTableView.Columns.Add(gridColumn)013. gridColumn.DataField = dataColumn.ColumnName014. gridColumn.HeaderText = dataColumn.ColumnName015. Next016. End If017. End Sub018. 019. Private Sub RadGrid1_ColumnCreating(sender As Object, e As Telerik.Web.UI.GridColumnCreatingEventArgs) Handles RadGrid1.ColumnCreating020. If (e.ColumnType = GetType(MyCustomFilteringColumnVB).Name) Then021. e.Column = New MyCustomFilteringColumnVB()022. End If023. End Sub024. 025. Private Sub RadGrid1_ItemCommand(sender As Object, e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGrid1.ItemCommand026. If (e.CommandName = "Filter") Then027. For Each column As GridColumn In e.Item.OwnerTableView.Columns028. column.CurrentFilterValue = String.Empty029. column.CurrentFilterFunction = GridKnownFunction.NoFilter030. Next031. End If032. End Sub033. 034. Private Sub RadGrid1_NeedDataSource(sender As Object, e As Telerik.Web.UI.GridNeedDataSourceEventArgs) Handles RadGrid1.NeedDataSource035. RadGrid1.DataSource = dt036. 037. End Sub038.End Class039. 040.Public Class MyCustomFilteringColumnVB041. Inherits GridBoundColumn042. Dim dd As New DummyData043. 'RadGrid will call this method when it initializes the controls inside the filtering item cells044. Protected Overloads Overrides Sub SetupFilterControls(ByVal cell As TableCell)045. MyBase.SetupFilterControls(cell)046. cell.Controls.RemoveAt(0)047. Dim combo As New RadComboBox()048. combo.ID = ("RadComboBox1" + Me.UniqueName)049. combo.ShowToggleImage = False050. combo.Skin = "Office2007"051. combo.EnableLoadOnDemand = True052. combo.AutoPostBack = True053. combo.MarkFirstMatch = False054. combo.Height = Unit.Pixel(100)055. combo.EnableAutomaticLoadOnDemand = False056. AddHandler combo.ItemsRequested, AddressOf Me.list_ItemsRequested057. AddHandler combo.SelectedIndexChanged, AddressOf Me.list_SelectedIndexChanged058. cell.Controls.AddAt(0, combo)059. cell.Controls.RemoveAt(1)060. End Sub061. 'RadGrid will cal this method when the value should be set to the filtering input control(s)062. Protected Overloads Overrides Sub SetCurrentFilterValueToControl(ByVal cell As TableCell)063. MyBase.SetCurrentFilterValueToControl(cell)064. Dim combo As RadComboBox = DirectCast(cell.Controls(0), RadComboBox)065. If (Me.CurrentFilterValue <> String.Empty) Then066. combo.Text = Me.CurrentFilterValue067. End If068. End Sub069. 'RadGrid will cal this method when the filtering value should be extracted from the filtering input control(s)070. Protected Overloads Overrides Function GetCurrentFilterValueFromControl(ByVal cell As TableCell) As String071. Dim combo As RadComboBox = DirectCast(cell.Controls(0), RadComboBox)072. Return combo.Text073. End Function074. Private Sub list_ItemsRequested(ByVal o As Object, ByVal e As RadComboBoxItemsRequestedEventArgs)075. Dim dt As DataTable = dd.GenTableData2076. CType(o, RadComboBox).DataTextField = Me.DataField077. CType(o, RadComboBox).DataValueField = Me.DataField078. 'If (Me.ColumnType Is GetType(String)) Then079. 080. 'dt = dt.Select(String.Format(Me.UniqueName + " LIKE '*{0}*'", e.Text)).CopyToDataTable081. dt = dt.Select(Me.UniqueName + " LIKE '%" + e.Text + "%'").CopyToDataTable082. Dim dv As DataView = New DataView(dt)083. dt = dv.ToTable("dt", False, Me.UniqueName)084. ''Else085. 'End If086. 087. 088. 089. CType(o, RadComboBox).DataSource = dt090. 091. CType(o, RadComboBox).DataBind()092. End Sub093. 094. Private Sub list_SelectedIndexChanged(ByVal o As Object, ByVal e As RadComboBoxSelectedIndexChangedEventArgs)095. Dim filterItem As GridFilteringItem = DirectCast((DirectCast(o, RadComboBox)).NamingContainer, GridFilteringItem)096. If (Me.UniqueName = "Index") Then097. 'If (Me.ColumnType Is GetType(Integer)) Then098. 'this is filtering for integer column type099. filterItem.FireCommandEvent("Filter", New Pair("EqualTo", Me.UniqueName))100. End If101. 'filtering for string column type102. filterItem.FireCommandEvent("Filter", New Pair("Contains", Me.UniqueName))103. End Sub104.End Class105. 106.Public Class DummyData107. Public Function GenTableData2(Optional records = 30)108. Dim dt As New DataTable109. dt.Columns.Add("ID", GetType(Integer))110. dt.Columns.Add("First", GetType(String))111. dt.Columns.Add("Last", GetType(String))112. dt.Columns.Add("Birth", GetType(DateTime))113. 114. 115. For index = 1 To records116. dt.Rows.Add(index, "First" & index, "Last" & index, Date.Now.AddDays(-index))117. Next118. 119. Return dt120. End Function121.End Classfunction AddNewEntry(pText, pDisabled) { var autoCompleteBox = $find("<%=RdtCmpltBx_Data.ClientID %>"); var entry = new Telerik.Web.UI.AutoCompleteBoxEntry(); entry.set_text(pText); autoCompleteBox.get_entries().add(entry); if (pDisabled == true) { var token = entry.get_token(); token.isDisabled = true; }}