or
| Private Sub Chart1_NeedDataSource(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Chart1.NeedDataSource Dim myImpersonate As New AliasAccount("administrator", "", "") myImpersonate.BeginImpersonation() DirectCast(sender, Telerik.Reporting.Processing.Chart).DataSource = myDataSource ClearLabels() myImpersonate.EndImpersonation() End Sub Private Sub ClearLabels() For Each c As ChartSeries In Chart1.Series For Each item As ChartSeriesItem In c.Items item.Label.TextBlock.Text = "" Next Next End Sub End Class |
|
A |
10 |
|
|
|
|
20 |
|
|
|
A Total |
30 |
AVG |
0.25 (30/120) |
|
B |
20 |
|
|
|
|
30 |
|
|
|
|
40 |
|
|
|
B Total |
90 |
AVG |
0.75(90/120) |
|
Total |
120 |
|
|