or
<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