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 If
End Sub