Apr 19, 2013, 7:15 PM
}
not working,
this code:
not working,
this code:
Dim store = chrtGraficaIndicesDePersonal.GetStore
store.Model.Clear()
store.Reader.Clear()
Dim m = New Model
m.Name = "Mod"
m.Fields.Add(New ModelField("Cantidad"))
m.Fields.Add(New ModelField("NombreMes"))
Dim AxesX = New CategoryAxis()
Dim AxesY = New NumericAxis()
AxesY.Fields = {"Cantidad"}
AxesY.Grid = True
AxesY.Title = "Asegurados"
AxesY.Minimum = 0
AxesY.Label = New Ext.Net.AxisLabel()
AxesY.Position = Position.Left
AxesX.Fields = {"NombreMes"}
AxesX.Position = Position.Bottom
AxesX.Title = "Periodos"
Dim MySerie = New ColumnSeries
MySerie.SeriesID = "IdSerie"
MySerie.Axis = Position.Left
MySerie.Highlight = True
MySerie.XField = {"NombreMes"}
MySerie.YField = {"Cantidad"}
Dim tp As New Ext.Net.ChartTip.Config
tp.TrackMouse = True
tp.Width = 200
tp.Height = 30
tp.ItemID = "tip"
MySerie.Tips = New Ext.Net.ChartTip(tp)
MySerie.Tips.Renderer.Handler = "this.setTitle(storeItem.get('NombreMes') + ': ' + storeItem.get('Cantidad'));"
chrtGraficaIndicesDePersonal.Series.Add(MySerie)
chrtGraficaIndicesDePersonal.Legend = True
chrtGraficaIndicesDePersonal.Axes.Add(AxesY)
chrtGraficaIndicesDePersonal.Axes.Add(AxesX)
chrtGraficaIndicesDePersonal.Axes(0).Label.Renderer.Handler = "if (value.toString().indexOf('.') === -1){return value;} else {Return '';}"
Dim a = chrtGraficaIndicesDePersonal.GetSprite("Titulo")
a.Text = "Indices de personal del " + iAnio.ToString() + " - " + strConcepto
store.Model.Add(m)
store.DataSource = ocData
store.DataBind()
chrtGraficaIndicesDePersonal.Render(True)
thanks!