or
<body> <form id="form1" runat="server"> <asp:ScriptManager ID="ScriptManager1" runat="server"> </asp:ScriptManager> <div> <telerik:RadGrid ID="GrdConfig" runat="server" CellSpacing="0" GridLines="None" EnableLinqExpressions="False" oncolumncreated="GrdConfig_ColumnCreated" CssClass="MyRadGridCssClass" AllowPaging="True"> <ClientSettings> <Resizing AllowColumnResize="True" /> <Scrolling AllowScroll="True" /> </ClientSettings> <MasterTableView> <CommandItemSettings ExportToPdfText="Export to PDF"></CommandItemSettings> <RowIndicatorColumn Visible="True" FilterControlAltText="Filter RowIndicator column"> <HeaderStyle Width="20px"></HeaderStyle> </RowIndicatorColumn> <ExpandCollapseColumn Visible="True" FilterControlAltText="Filter ExpandColumn column"> <HeaderStyle Width="20px"></HeaderStyle> </ExpandCollapseColumn> <EditFormSettings> <EditColumn FilterControlAltText="Filter EditCommandColumn column"></EditColumn> </EditFormSettings> </MasterTableView> <FilterMenu EnableImageSprites="False"></FilterMenu> </telerik:RadGrid> </div> </form> </body> </html> public partial class Configurations : System.Web.UI.Page { protected void Page_Load(object sender, EventArgs e) {
** Code to extract data from database goes here**
GrdConfig.DataSource = data; GrdConfig.DataBind(); GridGroupByExpression expression = GridGroupByExpression.Parse("ConfigFile[Config File:] Group by ConfigFile"); GrdConfig.MasterTableView.GroupByExpressions.Add(expression); GridColumn cConfig = GrdConfig.MasterTableView.GetColumnSafe("ConfigFile"); cConfig.Visible = false; GrdConfig.Rebind(); } protected void GrdConfig_ColumnCreated(object sender, GridColumnCreatedEventArgs e) { if (e.Column is GridGroupSplitterColumn) { e.Column.HeaderStyle.Width = Unit.Pixel(1); e.Column.HeaderStyle.Font.Size = FontUnit.Point(1); e.Column.ItemStyle.Width = Unit.Pixel(1); e.Column.ItemStyle.Font.Size = FontUnit.Point(1); e.Column.Resizable = false; } } protected void GrdConfig_ItemDataBound(object sender, GridItemEventArgs e) { if (e.Item is GridGroupHeaderItem) { GridGroupHeaderItem groupHeader = (GridGroupHeaderItem)e.Item; groupHeader.Font.Bold = true; } } } }<%@ Page Language="VB" AutoEventWireup="false" CodeBehind="Default.aspx.vb" Inherits="RadControlsWebAppTesting._Default" %><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head id="Head1" runat="server"> <title></title> <telerik:RadStyleSheetManager ID="RadStyleSheetManager1" runat="server" /></head><body> <form id="form1" runat="server"> <telerik:RadScriptManager ID="RadScriptManagerMain" runat="server" EnablePageMethods="true" EnableScriptGlobalization="true"> <Scripts> <asp:ScriptReference Assembly="Telerik.Web.UI" Name="Telerik.Web.UI.Common.Core.js" /> <asp:ScriptReference Assembly="Telerik.Web.UI" Name="Telerik.Web.UI.Common.jQuery.js" /> <asp:ScriptReference Assembly="Telerik.Web.UI" Name="Telerik.Web.UI.Common.jQueryInclude.js" /> </Scripts> </telerik:RadScriptManager> <telerik:RadSkinManager ID="RadSkinManagerMain" runat="server" ShowChooser="false"> <TargetControls> <telerik:TargetControl ControlsToApplySkin="NotSet" /> </TargetControls> </telerik:RadSkinManager> <telerik:RadFormDecorator ID="RadFormDecoratorMain" runat="server" DecoratedControls="Buttons" Skin="Web20" Enabled="true" EnableRoundedCorners="false" EnableEmbeddedBaseStylesheet="true" EnableAjaxSkinRendering="true" EnableEmbeddedScripts="true" EnableEmbeddedSkins="true" /> <telerik:RadAjaxManager ID="RadAjaxManagerMain" runat="server"> </telerik:RadAjaxManager> <telerik:RadAjaxLoadingPanel ID="RadAjaxLoadingPanelMain" runat="server" BackColor="Transparent"> </telerik:RadAjaxLoadingPanel> <script type="text/javascript"> //Put your JavaScript code here. function SetCursorToTextEnd(textControlID) { var text = document.getElementById(textControlID); if (text != null && text.value.length > 0) { if (text.createTextRange) { //IE var range = text.createTextRange(); range.moveStart('character', text.value.length); range.collapse(); range.select(); } else if (text.setSelectionRange) { //FF, web-kit var textLength = text.value.length; text.focus(); text.setSelectionRange(textLength, textLength); } } } </script> <div> <asp:TextBox ID="TextBox1" runat="server"></asp:TextBox> <br /> <asp:Button ID="Button1" runat="server" Text="Button" /> <hr /> <telerik:RadGrid ID="RadGrid1" runat="server" AllowMultiRowSelection="False" AllowPaging="False" PageSize="20" AllowFilteringByColumn="true" AllowSorting="False" ShowStatusBar="false" ShowFooter="false" ShowHeader="True" AutoGenerateColumns="False" GridLines="None" EnableEmbeddedSkins="True" GroupingSettings-CaseSensitive="false" Width="99%" DataSourceID="SqlDataSource1"> <PagerStyle Mode="NumericPages" Visible="False" AlwaysVisible="False" Position="Bottom" Height="0px"></PagerStyle> <StatusBarSettings LoadingText="Loading Data" ReadyText="Data Loaded." /> <ClientSettings EnablePostBackOnRowClick="False"> <Scrolling AllowScroll="true" EnableVirtualScrollPaging="False" ScrollHeight="250" SaveScrollPosition="False" /> <Selecting AllowRowSelect="True" EnableDragToSelectRows="True" /> <ClientEvents /> </ClientSettings> <MasterTableView AutoGenerateColumns="False" DataSourceID="SqlDataSource1" TableLayout="auto"> <RowIndicatorColumn Visible="True" FilterControlAltText="Filter RowIndicator column"> <HeaderStyle Width="20px"></HeaderStyle> </RowIndicatorColumn> <ExpandCollapseColumn Visible="True" FilterControlAltText="Filter ExpandColumn column"> <HeaderStyle Width="20px"></HeaderStyle> </ExpandCollapseColumn> <Columns> <telerik:GridBoundColumn DataField="EMP_LNAME" FilterControlAltText="Filter EMP_LNAME column" UniqueName="GridBoundColumnDescription" FilterControlWidth="100%" HeaderText="Search List" CurrentFilterFunction="Contains" AutoPostBackOnFilter="false" ShowFilterIcon="False" FilterDelay="700"> </telerik:GridBoundColumn> </Columns> <ExpandCollapseColumn Visible="False"> </ExpandCollapseColumn> <RowIndicatorColumn Visible="False"> </RowIndicatorColumn> </MasterTableView> </telerik:RadGrid> <asp:SqlDataSource ID="SqlDataSource1" runat="server" ConnectionString="<%$ ConnectionStrings:ADVAN65010ConnectionString %>" SelectCommand="SELECT [EMP_LNAME] FROM [EMPLOYEE]"></asp:SqlDataSource> </div> </form></body></html>Imports Telerik.Web.UIPartial Class _Default Inherits System.Web.UI.Page Private Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click Me.Page.ClientScript.RegisterStartupScript(Me.GetType(), "focus_script", "SetCursorToTextEnd('" & Me.TextBox1.ClientID & "');", True) End Sub Private Sub RadGrid1_ItemCommand(sender As Object, e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGrid1.ItemCommand Select Case e.CommandName Case "Filter" Dim filteringItem As GridFilteringItem = DirectCast(RadGrid1.MasterTableView.GetItems(GridItemType.FilteringItem)(0), GridFilteringItem) Dim box As TextBox = TryCast(filteringItem("GridBoundColumnDescription").Controls(0), TextBox) Me.Page.ClientScript.RegisterStartupScript(Me.GetType(), "focus_script", "SetCursorToTextEnd('" & box.ClientID & "');", True) End Select End Sub Private Sub RadGrid1_PreRender(sender As Object, e As System.EventArgs) Handles RadGrid1.PreRender If Not Me.IsPostBack And Not Me.IsCallback Then Dim filteringItem As GridFilteringItem = DirectCast(RadGrid1.MasterTableView.GetItems(GridItemType.FilteringItem)(0), GridFilteringItem) Dim box As TextBox = TryCast(filteringItem("GridBoundColumnDescription").Controls(0), TextBox) With box .Focus() End With End If End SubEnd Class<telerik:RadGrid ID="rgCajas" runat="server" DataSourceID="odsCajas" OnSortCommand="rgCajas_SortCommand" OnPageIndexChanged="rgCajas_PageIndexChanged" OnPageSizeChanged="rgCajas_PageSizeChanged" AllowSorting="True" PageSize="15" AllowPaging="True" AllowMultiRowSelection="True" Gridlines="None" MasterTableView-NoMasterRecordsText="No se encontró registro" Width="40%" DataSourcePersistenceMode="ViewState"> <PagerStyle Mode="NextPrevAndNumeric" PagerTextFormat="{4} Registros {2}-{3} de {5}" PageSizeLabelText="# Registros"></PagerStyle> <ExportSettings ExportOnlyData="true" IgnorePaging="true" OpenInNewWindow="true"> <Excel Format="ExcelML" /> </ExportSettings> <MasterTableView DataSourceID="odsCajas" CommandItemDisplay="Top" AutoGenerateColumns="false" UseAllDataFields="true"> <CommandItemSettings ShowExportToExcelButton="true" ShowAddNewRecordButton="false" ShowRefreshButton="False" /> <Columns> </Columns> </MasterTableView> </telerik:RadGrid> <asp:ObjectDataSource runat="server" ID="odsCajas" SelectMethod="GetCajaPorId" TypeName="HQB.HQBDOC.HQBDocBLL.Orden.OrdenManagerBLL"> <SelectParameters> <asp:ControlParameter ControlID="hfCajaId" DefaultValue="" Name="cajaId" PropertyName="Value" Type="String" /> </SelectParameters> </asp:ObjectDataSource>private void LoadData() { try{ rgCajas.Columns.Clear(); string cajas_query_attributes = GetVariableLocal("cajas.query.attributes"); string[] arrCajas_query_attributes = cajas_query_attributes.Split(",".ToArray()); for (int i = 0; i < arrCajas_query_attributes.Length; i++) { string attibute = arrCajas_query_attributes[i].ToString(); string[] arrCajas_query_attributesField = attibute.Split("$".ToArray()); GridBoundColumn column = new GridBoundColumn(); column.HeaderText = arrCajas_query_attributesField[1]; column.DataField = arrCajas_query_attributesField[0]; rgCajas.MasterTableView.Columns.Add(column); } } catch (Exception ex) { //LOG.DE.ERRORES. LogManagerBLL.IngresarLog(LogConstante.ERROR, ex.Message, ex.StackTrace); throw ex; } }
Dim rfProvider As New RadFilterSqlQueryProviderrfProvider.ProcessGroup(e.ExpressionRoot)dim queryString as stringProtected Sub RadFilter1_ApplyExpressions(sender As Object, e As Telerik.Web.UI.RadFilterApplyExpressionsEventArgs) Handles RadFilter1.ApplyExpressions queryString = String.Empty Dim objExpression As RadFilterGroupExpression = e.ExpressionRoot Dim objCollection As RadFilterExpressionsCollection = objExpression.Expressions processGroup(objCollection)End SubPrivate Sub processGroup(ByVal objCollection As RadFilterExpressionsCollection) For Each objExp As RadFilterExpression In objCollection Dim objFunction As RadFilterFunction = objExp.FilterFunction Dim rfProvider As New RadFilterSqlQueryProvider ' I don't know how to produce the functionality of the next statement! Dim strFilter as new string = rfProvider.ProcessFilter(RadFilterExpression) ' This would return "Manufacturer like 'somecompany%'" if strFilter.StartsWith("Manufacturer") then queryString &= " (" & strFilter.Replace("Manufacturer","ManfName") & _ " or " & strFilter.Replace("Manufacturer", "AltManf") & _ " or " & strFilter.Replace("Manufacturer", "GenericManf") & ") " end if ... NextEnd Sub
Protected Sub CreateChart() Dim dt As New DataTable Dim dc As DataColumn Dim dr As DataRow Dim ctr As Integer = 0 Dim usableMonths As String = Me.Invoice.Custom45.ToString() Dim usableData As String = Me.Invoice.Custom46.ToString() Dim months() As String = usableMonths.Split(New [Char]() {","c}) Dim data() As String = usableData.Split(New [Char]() {","c}) dc = New DataColumn("XValues", Type.GetType("System.Int32")) dc.AutoIncrement = True dc.AutoIncrementSeed = 300 dt.Columns.Add(dc) dc = New DataColumn("XDesc", Type.GetType("System.String")) dt.Columns.Add(dc) dc = New DataColumn("YValues", Type.GetType("System.Double")) dt.Columns.Add(dc) While ctr <= months.Length - 2 dr = dt.NewRow If String.IsNullOrEmpty(months(ctr).ToString().Trim()) Then dr(1) = " " Else dr(1) = months(ctr) End If If String.IsNullOrEmpty(data(ctr).ToString().Trim()) Then dr(2) = 0 Else dr(2) = Convert.ToDouble(data(ctr)) End If dt.Rows.Add(dr) ctr += 1 End While dt.AcceptChanges() Me.RadChart1.DataSource = dt Dim usage As New Telerik.Charting.ChartSeries("Usage", Telerik.Charting.ChartSeriesType.Bar) usage.DataXColumn = "XValues" usage.DataYColumn = "YValues" usage.Appearance.BarWidthPercent = 30 usage.DefaultLabelValue = String.Empty usage.Visible = True Me.RadChart1.Series.Add(usage) Me.RadChart1.Width = Unit.Pixel(480) Me.RadChart1.Height = Unit.Pixel(200) Me.RadChart1.ChartTitle.Visible = False Me.RadChart1.Legend.Visible = False Me.RadChart1.PlotArea.XAxis.DataLabelsColumn = "XDesc" Me.RadChart1.PlotArea.XAxis.Appearance.TextAppearance.AutoTextWrap = Telerik.Charting.Styles.AutoTextWrap.True Me.RadChart1.PlotArea.XAxis.Appearance.MajorGridLines.Visible = False Me.RadChart1.PlotArea.XAxis.Appearance.MinorGridLines.Visible = False Me.RadChart1.PlotArea.YAxis.Appearance.MinorGridLines.Visible = False Me.RadChart1.PlotArea.Appearance.Dimensions.Margins.Top = Telerik.Charting.Styles.Unit.Pixel(20) Me.RadChart1.PlotArea.Appearance.Dimensions.Margins.Right = Telerik.Charting.Styles.Unit.Pixel(10) Me.RadChart1.PlotArea.Appearance.Dimensions.Margins.Bottom = Telerik.Charting.Styles.Unit.Pixel(40) Me.RadChart1.PlotArea.Appearance.Dimensions.Margins.Left = Telerik.Charting.Styles.Unit.Pixel(50) Me.RadChart1.Skin = "Classic" Me.RadChart1.DataBind() End Sub