[1nj]

كود :

Dim query = dt.Rows.Cast(Of DataRow)().GroupBy(Function(x) x.Item("admin").ToString).ToDictionary(Function(x) x.Key, Function(y) y.Count())

Dim labelPoint1 As System.Func(Of ChartPoint, String) = Function(chartPoint) String.Format("{0} ({1:P})", chartPoint.Y, chartPoint.Participation)
Dim seriesCollection1 As New SeriesCollection
For Each item In query
    seriesCollection1.Add(New PieSeries With {
        .Title = item.Key,
        .Values = New ChartValues(Of Integer) From {item.Value},
        .PushOut = 15,
        .DataLabels = True,
        .LabelPoint = labelPoint1
    }
)
Next
my_chart.Series = seriesCollection1