I have a line chart with 2 series. series1 will always have less values than series2. The last value of series1 causes the line do drop to the x axis, I would like it to just end.
d with the last real value.
Private Sub MakeGraph(ByVal myyear As Int32, ByVal _Val1 As String, ByVal _val2 As String) |
Dim table As DataTable |
table = Get52WeekGraph |
rctrend.DataSource = table |
rctrend.DataBind() |
rctrend.PlotArea.XAxis.DataLabelsColumn = "weekname" |
Dim series1 As New Telerik.Charting.ChartSeries() |
Dim series2 As New Telerik.Charting.ChartSeries() |
rctrend.Series.Clear() |
Dim minval As Double = 1000000 |
Dim maxval As Double = 0 |
For Each rowView As DataRowView In table.DefaultView |
Dim seriesItem1 As New Telerik.Charting.ChartSeriesItem() |
seriesItem1.Label.Visible = False |
If Not IsDBNull(rowView("tyval")) Then |
seriesItem1.YValue = CDbl(rowView("tyval")) |
If seriesItem1.YValue < minval Then minval = seriesItem1.YValue |
If seriesItem1.YValue > maxval Then maxval = seriesItem1.YValue |
series1.DataLabelsColumn = rowView("weekname") |
End If |
series1.AddItem(seriesItem1) |
Dim seriesItem2 As New Telerik.Charting.ChartSeriesItem() |
seriesItem2.Label.Visible = False |
If Not IsDBNull(rowView("lyval")) Then |
seriesItem2.YValue = CDbl(rowView("lyval")) |
If seriesItem2.YValue < minval Then minval = seriesItem2.YValue |
If seriesItem2.YValue > maxval Then maxval = seriesItem2.YValue |
series1.DataLabelsColumn = rowView("weekname") |
End If |
series2.AddItem(seriesItem2) |
Next |
series1.Name = _Val1 |
series2.Name = _val2 |
Dim valdiff As Double |
Dim mybuff As Double |
Dim mystep As Double |
valdiff = maxval - minval |
mybuff = valdiff * 0.2 |
minval = CInt(minval - mybuff) |
maxval = CInt(maxval + mybuff) |
mystep = (maxval - minval) / 10 |
rctrend.Series.Add(series1) |
rctrend.Series.Add(series2) |
rctrend.PlotArea.Chart.DefaultType = Telerik.Charting.ChartSeriesType.Line |
rctrend.PlotArea.YAxis.AutoScale = False |
rctrend.PlotArea.YAxis.IsZeroBased = False |
rctrend.PlotArea.YAxis.MinValue = minval |
rctrend.PlotArea.YAxis.MaxValue = maxval |
rctrend.PlotArea.YAxis.Step = mystep |
rctrend.PlotArea.XAxis.MaxValue = 52 |
rctrend.ChartTitle.TextBlock.Text = "Score" |
End Sub |