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.AddChartSerie
s(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