The Xaxis does not show the correct labels and all the september's are not grouped together
What am i doing wrong
Dim oldsubcategory_id As String = "ZZ"
Dim subcategory_id As String
Dim currentSeries As ChartSeries = Nothing
BarChartForAcc.Series.Clear()
If (ShowList().Count > 0) Then
For Each DataRow In GuiDataSource().Rows
subcategory_id = DataRow("ACCOUNTNUM")
If subcategory_id <> oldsubcategory_id Then
currentSeries = BarChartForAcc.CreateSeries(DataRow("ACCOUNTNUM"), Color.Empty, Color.Empty, ChartSeriesType.Bar)
currentSeries.Appearance.Border.Color = Color.Black
currentSeries.Appearance.ShowLabels = False
oldsubcategory_id = subcategory_id
End If
If Not (currentSeries Is Nothing) Then
currentSeries.AddItem(DataRow("AMOUNTCUR"), DataRow("TRANSDATE"))
End If
Next
End If
BarChartForAcc.ChartTitle.TextBlock.Text = "By Month For " & TheYear.ToString
What am i doing wrong
Dim oldsubcategory_id As String = "ZZ"
Dim subcategory_id As String
Dim currentSeries As ChartSeries = Nothing
BarChartForAcc.Series.Clear()
If (ShowList().Count > 0) Then
For Each DataRow In GuiDataSource().Rows
subcategory_id = DataRow("ACCOUNTNUM")
If subcategory_id <> oldsubcategory_id Then
currentSeries = BarChartForAcc.CreateSeries(DataRow("ACCOUNTNUM"), Color.Empty, Color.Empty, ChartSeriesType.Bar)
currentSeries.Appearance.Border.Color = Color.Black
currentSeries.Appearance.ShowLabels = False
oldsubcategory_id = subcategory_id
End If
If Not (currentSeries Is Nothing) Then
currentSeries.AddItem(DataRow("AMOUNTCUR"), DataRow("TRANSDATE"))
End If
Next
End If
BarChartForAcc.ChartTitle.TextBlock.Text = "By Month For " & TheYear.ToString