Working with Summaries in Code. Custom Summaries

GridColumnSummaryItem siTotal = new GridColumnSummaryItem();
siTotal.SummaryType = SummaryItemType.Count;
siTotal.DisplayFormat = "{0} records";

GridColumnSummaryItem siAverage = new GridColumnSummaryItem();
siAverage.SummaryType = SummaryItemType.Average;
siAverage.FieldName = "Length";
siAverage.DisplayFormat = "Average: {0:#.#}";

GridColumnSummaryItem siRecordDate = new GridColumnSummaryItem();
siRecordDate.SummaryType = SummaryItemType.Custom;
siRecordDate.FieldName = "RecordDate";
siRecordDate.DisplayFormat = "This week: {0:n0} records";

Dim siTotal As New GridColumnSummaryItem()
siTotal.SummaryType = SummaryItemType.Count
siTotal.DisplayFormat = "{0} records" 

Dim siAverage As New GridColumnSummaryItem()
siAverage.SummaryType = SummaryItemType.Average
siAverage.FieldName = "Length" 
siAverage.DisplayFormat = "Average: {0:#.#}" 

Dim siRecordDate As New GridColumnSummaryItem()
siRecordDate.SummaryType = SummaryItemType.Custom
siRecordDate.FieldName = "RecordDate" 
siRecordDate.DisplayFormat = "This week: {0:n0} records" 

int dateCount = 0;
gridView.CustomSummaryCalculate += (sender, e) => {
        if (e.IsTotalSummary) {
                    GridView view = sender as GridView;
                    switch (e.SummaryProcess) {
                        //calculation entry point 
                        case CustomSummaryProcess.Start:
                            dateCount = 0;
                            break;
                        //consequent calculations 
                        case CustomSummaryProcess.Calculate:
                            DateTime value = Convert.ToDateTime(view.GetRowCellValue(e.RowHandle, view.Columns["RecordDate"]));
                            DateTime current = DateTime.Now;
                            System.Globalization.CultureInfo cul = System.Globalization.CultureInfo.CurrentCulture;
                            //retrieve weeks 
                            var valueWeek = cul.Calendar.GetWeekOfYear(
                                value,
                                System.Globalization.CalendarWeekRule.FirstDay,
                                DayOfWeek.Monday);
                            var currentWeek = cul.Calendar.GetWeekOfYear(
                                current,
                                System.Globalization.CalendarWeekRule.FirstDay,
                                DayOfWeek.Monday);
                            if (valueWeek == currentWeek) dateCount++;
                            break;
                        //final summary value 
                        case CustomSummaryProcess.Finalize:
                            e.TotalValue = dateCount;
                            break;
                            }
        }
};

'This code snippet uses implicit typing. You will need to set 'Option Infer On' in the VB file or set 'Option Infer' at the project level. 

Dim dateCount As Integer = 0
AddHandler gridView.CustomSummaryCalculate, Sub(sender, e)
        If e.IsTotalSummary Then 
                    Dim view As GridView = TryCast(sender, GridView)
                    Select Case e.SummaryProcess
                        'calculation entry point 
                        Case CustomSummaryProcess.Start
                            dateCount = 0
                        'consequent calculations 
                        Case CustomSummaryProcess.Calculate
                            Dim value As Date = Convert.ToDateTime(view.GetRowCellValue(e.RowHandle, view.Columns("RecordDate")))
                            Dim current As Date = Date.Now
                            Dim cul As System.Globalization.CultureInfo = System.Globalization.CultureInfo.CurrentCulture
                            'retrieve weeks 
                            Dim valueWeek = cul.Calendar.GetWeekOfYear(value, System.Globalization.CalendarWeekRule.FirstDay, DayOfWeek.Monday)
                            Dim currentWeek = cul.Calendar.GetWeekOfYear(current, System.Globalization.CalendarWeekRule.FirstDay, DayOfWeek.Monday)
                            If valueWeek = currentWeek Then 
                              dateCount += 1
                            End If 
                        'final summary value 
                        Case CustomSummaryProcess.Finalize
                            e.TotalValue = dateCount
                    End Select 
        End If 
End Sub 

gridView.Columns["ID"].Summary.Add(siTotal);
gridView.Columns["RecordDate"].Summary.Add(siRecordDate);
gridView.Columns["Length"].Summary.Add(siAverage);
gridView.OptionsView.ShowFooter = true;

gridView.Columns("ID").Summary.Add(siTotal)
gridView.Columns("RecordDate").Summary.Add(siRecordDate)
gridView.Columns("Length").Summary.Add(siAverage)
gridView.OptionsView.ShowFooter = True 

//"Count" summary item 
GridGroupSummaryItem gscCount = new GridGroupSummaryItem();
gscCount.SummaryType = SummaryItemType.Count;
gscCount.DisplayFormat = "({0} records)";
gridView.GroupSummary.Add(gscCount);

//"Average" summary item 
gridView.GroupSummary.Add(SummaryItemType.Average, "Length", gridView.Columns["Length"], "Average: {0}");

'"Count" summary item 
Dim gscCount As New GridGroupSummaryItem()
gscCount.SummaryType = SummaryItemType.Count
gscCount.DisplayFormat = "({0} records)" 
gridView.GroupSummary.Add(gscCount)

'"Average" summary item 
gridView.GroupSummary.Add(SummaryItemType.Average, "Length", gridView.Columns("Length"), "Average: {0}")

int dateCount = 0;
gridView.CustomSummaryCalculate += (sender, e) => {
        if (e.IsGroupSummary) {
                    GridView view = sender as GridView;
                    switch (e.SummaryProcess) {
                        //calculation entry point 
                        case CustomSummaryProcess.Start:
                            dateCount = 0;
                            break;
                        //consequent calculations 
                        case CustomSummaryProcess.Calculate:
                            DateTime value = Convert.ToDateTime(view.GetRowCellValue(e.RowHandle, view.Columns["RecordDate"]));
                            DateTime current = DateTime.Now;
                            System.Globalization.CultureInfo cul = System.Globalization.CultureInfo.CurrentCulture;
                            //retrieve weeks 
                            var valueWeek = cul.Calendar.GetWeekOfYear(
                                value,
                                System.Globalization.CalendarWeekRule.FirstDay,
                                DayOfWeek.Monday);
                            var currentWeek = cul.Calendar.GetWeekOfYear(
                                current,
                                System.Globalization.CalendarWeekRule.FirstDay,
                                DayOfWeek.Monday);
                            if (valueWeek == currentWeek) dateCount++;
                            break;
                        //final summary value 
                        case CustomSummaryProcess.Finalize:
                            e.TotalValue = dateCount;
                            break;
                            }
        }
};

gridView.GroupSummary.Add(SummaryItemType.Custom, "RecordDate", gridView.Columns["RecordDate"], "{0} this week");

'This code snippet uses implicit typing. You will need to set 'Option Infer On' in the VB file or set 'Option Infer' at the project level. 

Dim dateCount As Integer = 0
AddHandler gridView.CustomSummaryCalculate, Sub(sender, e)
        If e.IsGroupSummary Then 
                    Dim view As GridView = TryCast(sender, GridView)
                    Select Case e.SummaryProcess
                        'calculation entry point 
                        Case CustomSummaryProcess.Start
                            dateCount = 0
                        'consequent calculations 
                        Case CustomSummaryProcess.Calculate
                            Dim value As Date = Convert.ToDateTime(view.GetRowCellValue(e.RowHandle, view.Columns("RecordDate")))
                            Dim current As Date = Date.Now
                            Dim cul As System.Globalization.CultureInfo = System.Globalization.CultureInfo.CurrentCulture
                            'retrieve weeks 
                            Dim valueWeek = cul.Calendar.GetWeekOfYear(value, System.Globalization.CalendarWeekRule.FirstDay, DayOfWeek.Monday)
                            Dim currentWeek = cul.Calendar.GetWeekOfYear(current, System.Globalization.CalendarWeekRule.FirstDay, DayOfWeek.Monday)
                            If valueWeek = currentWeek Then 
                              dateCount += 1
                            End If 
                        'final summary value 
                        Case CustomSummaryProcess.Finalize
                            e.TotalValue = dateCount
                    End Select 
        End If 
End Sub 

gridView.GroupSummary.Add(SummaryItemType.Custom, "RecordDate", gridView.Columns("RecordDate"), "{0} this week")

using DevExpress.XtraGrid.Views.Base;

private void gridView1_FocusedRowChanged(object sender, FocusedRowChangedEventArgs e) {
    GridView currentView = sender as GridView;            
    // Obtain the summary item displayed in the focused column  
    // within the focused group row's footer    
    DictionaryEntry ent = currentView.GetRowSummaryItem(e.FocusedRowHandle, 
      currentView.FocusedColumn);
    // Determine whether the summary item for the specified row and  
    // column is successfully obtained 
    if(ent.Key != null) {
        GridGroupSummaryItem si = (GridGroupSummaryItem)ent.Key;
        // Obtain the summary item's text 
        this.Text = si.GetDisplayText(ent.Value, true);
    } else {
        this.Text = "There is no summary for this row and column";
    }
}

Imports DevExpress.XtraGrid.Views.Base

Private Sub gridView1_FocusedRowChanged(ByVal sender As Object, _
  ByVal e As FocusedRowChangedEventArgs)  Handles gridView1.FocusedRowChanged
    Dim currentView As GridView = sender
    ' Obtain the summary item displayed in the focused column _ 
    ' within the focused group row's footer 
    Dim ent As DictionaryEntry = currentView.GetRowSummaryItem( _
      e.FocusedRowHandle, currentView.FocusedColumn)

    ' Determine whether the summary item for the specified row and  
    ' column is successfully obtained 
    If Not ent.Key Is Nothing Then 
        Dim si As GridGroupSummaryItem = ent.Key
        ' Obtain the summary item's text 
        Me.Text = si.GetDisplayText(ent.Value, True)
    Else 
        Me.Text = "There is no summary for this row and column" 
    End If 
End Sub 

using DevExpress.XtraGrid.Views.Grid;
// ...  

//highlight group rows for groups with more than three records 
private void gridView_RowStyle(object sender, DevExpress.XtraGrid.Views.Grid.RowStyleEventArgs e) {
    GridView view = sender as GridView;
    if (view == null) return;
    if (e.RowHandle >= 0 || view.GroupCount == 0) return;
    // Get all group summary values.  
    Hashtable ht = view.GetGroupSummaryValues(e.RowHandle);
    // Access the first group summary.  
    GridSummaryItem groupSummaryItem = view.GroupSummary[0];
    // Obtain the group summary's value.  
    int childRecordCount = Convert.ToInt32(ht[groupSummaryItem]);
    if (childRecordCount > 3)
        e.Appearance.BackColor = Color.FromArgb(70, Color.Red);
}

//modify total summaries' captions 
private void gridView_CustomDrawFooterCell(object sender, DevExpress.XtraGrid.Views.Grid.FooterCellCustomDrawEventArgs e) {
    GridSummaryItem summary = e.Info.SummaryItem;
    // Obtain the total summary's value.  
    double summaryValue = Convert.ToDouble(summary.SummaryValue);
    string summaryText = String.Format("{0} {1} = {2:c2}", summary.SummaryType, e.Column.GetCaption(), summaryValue);
    e.Info.DisplayText = summaryText;
}

Imports DevExpress.XtraGrid.Views.Grid
' ...  

'highlight group rows for groups with more than three records 
Private Sub gridView_RowStyle(ByVal sender As Object, ByVal e As DevExpress.XtraGrid.Views.Grid.RowStyleEventArgs)
    Dim view As GridView = TryCast(sender, GridView)
    If view Is Nothing Then 
      Return 
    End If 
    If e.RowHandle >= 0 OrElse view.GroupCount = 0 Then 
      Return 
    End If 
    ' Get all group summary values.  
    Dim ht As Hashtable = view.GetGroupSummaryValues(e.RowHandle)
    ' Access the first group summary.  
    Dim groupSummaryItem As GridSummaryItem = view.GroupSummary(0)
    ' Obtain the group summary's value.  
    Dim childRecordCount As Integer = Convert.ToInt32(ht(groupSummaryItem))
    If childRecordCount > 3 Then 
        e.Appearance.BackColor = Color.FromArgb(70, Color.Red)
    End If 
End Sub 

'modify total summaries' captions 
Private Sub gridView_CustomDrawFooterCell(ByVal sender As Object, ByVal e As DevExpress.XtraGrid.Views.Grid.FooterCellCustomDrawEventArgs)
    Dim summary As GridSummaryItem = e.Info.SummaryItem
    ' Obtain the total summary's value.  
    Dim summaryValue As Double = Convert.ToDouble(summary.SummaryValue)
    Dim summaryText As String = String.Format("{0} {1} = {2:c2}", summary.SummaryType, e.Column.GetCaption(), summaryValue)
    e.Info.DisplayText = summaryText
End Sub