Public Event Grouped As EventHandler

Dim instance As FpSpread
Dim handler As EventHandler
 
AddHandler instance.Grouped, handler

public event EventHandler Grouped

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