Spread for ASP.NET 11 Product Documentation
Grouped Event
Example 


FarPoint.Web.Spread Assembly > FarPoint.Web.Spread Namespace > FpSpread Class : Grouped Event
Occurs when the user is done grouping.
Syntax
'Declaration
 
Public Event Grouped As EventHandler
'Usage
 
Dim instance As FpSpread
Dim handler As EventHandler
 
AddHandler instance.Grouped, handler
public event EventHandler Grouped
Remarks
The EventHandler receives an argument containing data related to this event.
Example
This example uses the Grouped event.
FpSpread1.Sheets[0].RowCount = 8;
FpSpread1.Sheets[0].ColumnCount = 15;
this.FpSpread1.ActiveSheetView.GroupBarVisible = true;
this.FpSpread1.ActiveSheetView.AllowGroup = true;
this.FpSpread1.ActiveSheetView.GroupFooterVisible = true;
this.FpSpread1.ActiveSheetView.ColumnFooter.Visible = true;
this.FpSpread1.ActiveSheetView.ColumnFooter.RowCount = 2;
this.FpSpread1.ActiveSheetView.ColumnFooter.DefaultStyle.Border.BorderStyle = BorderStyle.Double;
this.FpSpread1.ActiveSheetView.ColumnFooter.Columns[12].HorizontalAlign = HorizontalAlign.Left;
this.FpSpread1.ActiveSheetView.ColumnFooter.Cells[0, 12].RowSpan = 2;
 //Value
for (int r = 0; r < this.FpSpread1.ActiveSheetView.RowCount; r++)
                           {
for (int j = 0; j < this.FpSpread1.ActiveSheetView.ColumnCount; j++)
                               {
                               }
                           }
int i = 0;
this.FpSpread1.ActiveSheetView.Columns[i].AggregationType = FarPoint.Web.Spread.Model.AggregationType.Sum;
this.FpSpread1.ActiveSheetView.ColumnFooter.Cells[0, i].Value = "Sum";
this.FpSpread1.ActiveSheetView.ColumnFooter.Cells[1, i].Value = "Sum:[{0}]"; 

//Change group footer styles
protected void FpSpread1_Grouped(object sender, EventArgs e)
        {
FarPoint.Web.Spread.Model.GroupFooter gf = default(FarPoint.Web.Spread.Model.GroupFooter);
FarPoint.Web.Spread.GroupInfo gi = default(FarPoint.Web.Spread.GroupInfo);
gf = ((FarPoint.Web.Spread.Model.GroupDataModel )FpSpread1.ActiveSheetView.DataModel).GetGroupFooter(2);
gi = FpSpread1.ActiveSheetView.GetGroupFooterInfo(gf);
gi.Font.Name = "Verdana";
gi.Font.Size = 8;
gi.ForeColor = System.Drawing.Color.Red;
}

//Put custom text in groups
//protected void FpSpread1_Grouped(object sender, EventArgs e)
//        {
//            FarPoint.Web.Spread.Model.GroupDataModel gdm = default(FarPoint.Web.Spread.Model.GroupDataModel);
//            FarPoint.Web.Spread.Model.Group g1 = default(FarPoint.Web.Spread.Model.Group);
//            gdm = FpSpread1.Sheets(0).DataModel;
//            g1 = gdm.Groups(0);
//            g1.Text = "test";
//        }
//Put custom text in footers
//FpSpread1.ActiveSheetView.Columns[0].AggregationType = FarPoint.Web.Spread.Model.AggregationType.Custom;
//protected void FpSpread1_Aggregate(object sender, FarPoint.Web.Spread.Model.AggregateArgs e)
//{
//    e.Result = "test";
//}
FpSpread1.Sheets(0).RowCount = 8
FpSpread1.Sheets(0).ColumnCount = 15
FpSpread1.ActiveSheetView.GroupBarVisible = True
FpSpread1.ActiveSheetView.AllowGroup = True
FpSpread1.ActiveSheetView.GroupFooterVisible = True
FpSpread1.ActiveSheetView.ColumnFooter.Visible = True
FpSpread1.ActiveSheetView.ColumnFooter.RowCount = 2
FpSpread1.ActiveSheetView.ColumnFooter.DefaultStyle.Border.BorderStyle = BorderStyle.Double 

'Value
Dim r As Integer
Dim j As Integer
For r = 0 To FpSpread1.Sheets(0).RowCount
For j = 0 To FpSpread1.Sheets(0).ColumnCount
FpSpread1.ActiveSheetView.DataModel.SetValue(r, j, j + r * FpSpread1.ActiveSheetView.ColumnCount) 
Next j
Next r
Dim i As Integer
i = 0
FpSpread1.ActiveSheetView.Columns(0).AggregationType = FarPoint.Web.Spread.Model.AggregationType.Sum
FpSpread1.ActiveSheetView.ColumnFooter.Cells(0, i).Value = "Sum" 
FpSpread1.ActiveSheetView.ColumnFooter.Cells(1, i).Value = "Sum:[{0}]" 

 Protected Sub FpSpread1_Grouped(ByVal sender As Object, ByVal e As System.EventArgs) Handles FpSpread1.Grouped
'Change Group Footer styles
Dim gf As FarPoint.Web.Spread.Model.GroupFooter
Dim gi As FarPoint.Web.Spread.GroupInfo
gf = CType(FpSpread1.ActiveSheetView.DataModel, FarPoint.Web.Spread.Model.GroupDataModel).GetGroupFooter(2)
gi = FpSpread1.ActiveSheetView.GetGroupFooterInfo(gf)
gi.Font.Name = "Verdana"
gi.Font.Size = 8
gi.ForeColor = System.Drawing.Color.Red
'Change Group Text
'Dim gdm As FarPoint.Web.Spread.Model.GroupDataModel
'Dim g1 As FarPoint.Web.Spread.Model.Group
'gdm = FpSpread1.Sheets(0).DataModel
'g1 = gdm.Groups(0)
'g1.Text = "test"
    End Sub

'Put custom text in footers
'FpSpread1.ActiveSheetView.Columns(0).AggregationType = FarPoint.Web.Spread.Model.AggregationType.Custom
'Protected Sub FpSpread1_Aggregate(ByVal sender As Object, ByVal e As FarPoint.Web.Spread.Model.AggregateArgs) Handles 'FpSpread1.Aggregate
'        e.Result = "test"
'End Sub
See Also

Reference

FpSpread Class
FpSpread Members