or

Dim chartSeries As ChartSeries Dim dataset As GeschlechterverhaeltnisDataTable = GetMyData() Me.pie_Chart.Chart.Series.RemoveSeries() Me.pie_Chart.PlotArea.XAxis.Appearance.TextAppearance.TextProperties.Font = New Font("Arial", 10) Me.pie_Chart.PlotArea.XAxis.Appearance.TextAppearance.TextProperties.Color = Color.Black Me.pie_Chart.PlotArea.XAxis.AutoScale = False Me.pie_Chart.Legend.TextBlock.Appearance.TextProperties.Color = Color.LightSkyBlue Me.pie_Chart.Legend.Appearance.Position.AlignedPosition = AlignedPositions.Right For i As Integer = 0 To dataset.Count - 1 chartSeries = New ChartSeries(dataset(i).Column1.ToString(), ChartSeriesType.Pie) chartSeries.AddItem(New ChartSeriesItem(dataset(i).count_result, dataset(i).count_result)) Me.pie_Chart.Series.Add(chartSeries) Next
Me.Chart_GenderRate.AddChartSeries(chartSeries)If TypeOf e.Item Is GridDataItem Then Dim gridDataItem As GridDataItem = e.Item Dim quoteID = gridDataItem.Item("quoteID").Text Dim lineID = gridDataItem.Item("lineID").Text Select Case gridDataItem.Item("assortmentTypeID").Text Case 1000 gridDataItem.Item("assortmentTypeID").Text = "Text for 1000" Case 1002 gridDataItem.Item("assortmentTypeID").Text = "Text for 1002" Case 1003 gridDataItem.Item("assortmentTypeID").Text = "Text for 1003" End Select End If