or
GroupDescriptor myDescriptor1= new GroupDescriptor();myDescriptor1.GroupNames.Add("site", ListSortDirection.Ascending);myDescriptor1.GroupNames.Add("batch", ListSortDirection.Ascending);myDescriptor1.Aggregates.Add("count(counter)");myDescriptor1.Format = "Site Number, Batch {1} {2} Records(s)";GroupDescriptor myDescriptor2= new GroupDescriptor();myDescriptor2.GroupNames.Add("type", ListSortDirection.Ascending);myGridView.MasterTemplate.AutoExpandGroups = true;myGridView.GroupDescriptors.Add(myDescriptor1);myGridView.MasterTemplate.AutoExpandGroups = false;myGridView.GroupDescriptors.Add(myDescriptor2);myGridView.EnableFiltering = true;myGridView.EnableAlternatingRowColor = true;myGridView.MasterTemplate.EnableAlternatingRowColor = true;
radchart1.Font = new System.Drawing.Font("B Nazanin", 12, FontStyle.Bold);

grdTestTools.Columns.Add("Id", "ToolId")grdTestTools.Columns.Add("PositionNumber", "Pos.-Nr.")grdTestTools.Columns.Add(New GridViewCheckBoxColumn("Versuch", "Test"))grdTestTools.Columns.Add("ToolNumber", "Werkzeugnummer")grdTestTools.Columns.Add("Manufacturer", "Hersteller")grdTestTools.Columns.Add("Coating", "Beschichtung")grdTestTools.Columns.Add("NumberOfAdaptors", "Schneiden")grdTestTools.Columns.Add("ActualCumulativeAverageNumberOfPieces", "Standmenge Ist")grdTestTools.Columns.Add("DebitCumulativeAverageNumberOfPieces", "Standmenge Soll")grdTestTools.Columns.Add("ActualCumulativeToolingCosts", "Werkzeugekosten Ist")grdTestTools.Columns.Add("DebitCumulativeToolingCosts", "Werkzeugekosten Soll")grdTestTools.Columns.Add("CumulativeNumberOfTools", "Benutzte Werkzeuge")grdTestTools.Columns.Add("CumulativeBrokenDieCounter", "davon gebrochen")Private Sub grdTestTools_CellFormatting(ByVal sender As Object, ByVal e As Telerik.WinControls.UI.CellFormattingEventArgs) Handles grdTestTools.CellFormatting MyColumn = e.CellElement.ColumnInfo If MyColumn.Name = "ActualCumulativeAverageNumberOfPieces" Or MyColumn.Name = "ActualCumulativeToolingCosts" Then 'Ist-Färbung e.CellElement.ForeColor = CoreFunctions.MyDefaultToolActualValuesFontColor e.CellElement.DrawFill = True e.CellElement.NumberOfColors = 1 e.CellElement.BackColor = Color.FromArgb(123, 123, 123) ElseIf MyColumn.Name = "DebitCumulativeAverageNumberOfPieces" Or MyColumn.Name = "DebitCumulativeToolingCosts" Then 'Soll-Färbung e.CellElement.ForeColor = CoreFunctions.MyDefaultToolDebitValuesFontColor e.CellElement.DrawFill = True e.CellElement.NumberOfColors = 1 e.CellElement.BackColor = Color.FromArgb(123, 123, 123) End IfEnd Sub