or
<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; }}<div style="display: table-cell; vertical-align: middle; padding-top: 5px; padding-left: 5px; padding-bottom: 5px; padding-right: 5px;"> <telerik:RadAutoCompleteBox ID="RdtCmpltBx_Data1" runat="server" WebServiceSettings-Method="GetSingleData" WebServiceSettings-Path="Main.aspx" OnClientTextChanged="DataChanged" Filter="StartsWith" DropDownPosition="Automatic" AllowCustomEntry="true" InputType="Text" TextSettings-SelectionMode="Single" /></div>

