Hi
I want to add Footer total at the end of the gridview
but I m getting total but its incorrect
i used below code
Can you please help me ?
my Gridview Header look likes
| AMIN | WHTE | BLCK | MULT | ASIA | PACI| Total
Dept no | Dapartment Name | F | M | F | M | F | M |F |M| F | M | F| M |F Total|M Total| Grand Total|
Protected Sub Gridview1_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles Gridview1.RowDataBound
If e.Row.RowType = DataControlRowType.Header Then
Dim i As Integer = 2
For i = 3 To e.Row.Cells.Count - 4
e.Row.Cells(i).Text = "M"
e.Row.Cells(i).HorizontalAlign = HorizontalAlign.Center
i = i + 1
e.Row.Cells(i).Text = "F"
e.Row.Cells(i).HorizontalAlign = HorizontalAlign.Center
Next
End If
If e.Row.RowType = DataControlRowType.DataRow Then
intb3 = intb3 + Convert.ToInt32(e.Row.Cells(3).Text) 'M
intb4 = intb4 + Convert.ToInt32(e.Row.Cells(4).Text) 'F
intb5 = intb5 + Convert.ToInt32(e.Row.Cells(5).Text) 'M
intb6 = intb6 + Convert.ToInt32(e.Row.Cells(6).Text) 'F
intb7 = intb7 + Convert.ToInt32(e.Row.Cells(7).Text) 'M
intb8 = intb8 + Convert.ToInt32(e.Row.Cells(8).Text) 'F
intb9 = intb9 + Convert.ToInt32(e.Row.Cells(9).Text) 'M
intb10 = intb10 + Convert.ToInt32(e.Row.Cells(10).Text) 'F
intb11 = intb11 + Convert.ToInt32(e.Row.Cells(11).Text) 'M
intb12 = intb12 + Convert.ToInt32(e.Row.Cells(12).Text) 'F
intb13 = intb13 + Convert.ToInt32(e.Row.Cells(13).Text) 'M
intb14 = intb14 + Convert.ToInt32(e.Row.Cells(14).Text) 'F
intb15 = intb15 + Convert.ToInt32(e.Row.Cells(15).Text) 'M
intb16 = intb16 + Convert.ToInt32(e.Row.Cells(16).Text) 'F
intb17 = intb17 + Convert.ToInt32(e.Row.Cells(17).Text) 'M TOTAL
intb18 = intb18 + Convert.ToInt32(e.Row.Cells(18).Text) 'F TOTAL
intb19 = intb19 + Convert.ToInt32(e.Row.Cells(19).Text) 'TOTAL
End If
If e.Row.RowType = DataControlRowType.Footer Then
Dim cellLabel As DataControlFieldCell = e.Row.Cells(0)
Dim cell03 As DataControlFieldCell = e.Row.Cells(3)
Dim cell04 As DataControlFieldCell = e.Row.Cells(4)
Dim cell05 As DataControlFieldCell = e.Row.Cells(5)
Dim cell06 As DataControlFieldCell = e.Row.Cells(6)
Dim cell07 As DataControlFieldCell = e.Row.Cells(7)
Dim cell08 As DataControlFieldCell = e.Row.Cells(8)
Dim cell09 As DataControlFieldCell = e.Row.Cells(9)
Dim cell10 As DataControlFieldCell = e.Row.Cells(10)
Dim cell11 As DataControlFieldCell = e.Row.Cells(11)
Dim cell12 As DataControlFieldCell = e.Row.Cells(12)
Dim cell13 As DataControlFieldCell = e.Row.Cells(13)
Dim cell14 As DataControlFieldCell = e.Row.Cells(14)
Dim cell15 As DataControlFieldCell = e.Row.Cells(15)
Dim cell16 As DataControlFieldCell = e.Row.Cells(16)
Dim cell17 As DataControlFieldCell = e.Row.Cells(17)
Dim cell18 As DataControlFieldCell = e.Row.Cells(18)
Dim cell19 As DataControlFieldCell = e.Row.Cells(19)
cellLabel.Text = "<strong>Total:</strong>"
cell03.Text = intb3
cell04.Text = intb4
cell05.Text = intb5
cell06.Text = intb6
cell07.Text = intb7
cell08.Text = intb8
cell09.Text = intb9
cell10.Text = intb10
cell11.Text = intb11
cell12.Text = intb12
cell13.Text = intb13
cell14.Text = intb14
cell15.Text = intb15
cell16.Text = intb16
cell17.Text = intb17
cell18.Text = intb18
cell19.Text = intb19
End sub
Protected Sub Gridview1_RowCreated(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles Gridview1.RowCreated
If e.Row.RowType = DataControlRowType.Header Then
Dim rowHeader As GridViewRow = New GridViewRow(0, 0, DataControlRowType.Header, DataControlRowState.Normal)
Dim newcells1 As Literal = New Literal()
newcells1.Text = "Membership by Race/Gender"
Dim headercell1 As TableHeaderCell = New TableHeaderCell()
headercell1.Controls.Add(newcells1)
headercell1.ColumnSpan = 3
headercell1.HorizontalAlign = HorizontalAlign.Center
rowHeader.Cells.Add(headercell1)
rowHeader.Visible = True
Gridview1.Controls(0).Controls.AddAt(0, rowHeader)
Dim newcells2 As Literal = New Literal()
newcells2.Text = "AMIN"
Dim headercell2 As TableHeaderCell = New TableHeaderCell()
headercell2.Controls.Add(newcells2)
headercell2.ColumnSpan = 2
rowHeader.Cells.Add(headercell2)
headercell2.HorizontalAlign = HorizontalAlign.Center
rowHeader.Visible = True
Gridview1.Controls(0).Controls.AddAt(0, rowHeader)
Dim newcells3 As Literal = New Literal()
newcells3.Text = "PACI"
Dim headercell3 As TableHeaderCell = New TableHeaderCell()
headercell3.Controls.Add(newcells3)
headercell3.ColumnSpan = 2
rowHeader.Cells.Add(headercell3)
headercell3.HorizontalAlign = HorizontalAlign.Center
rowHeader.Visible = True
Gridview1.Controls(0).Controls.AddAt(0, rowHeader)
Dim newcells4 As Literal = New Literal()
newcells4.Text = "ASIA"
Dim headercell4 As TableHeaderCell = New TableHeaderCell()
headercell4.Controls.Add(newcells4)
headercell4.ColumnSpan = 2
rowHeader.Cells.Add(headercell4)
headercell4.HorizontalAlign = HorizontalAlign.Center
rowHeader.Visible = True
Gridview1.Controls(0).Controls.AddAt(0, rowHeader)
Dim newcells5 As Literal = New Literal()
newcells5.Text = "HISP"
Dim headercell5 As TableHeaderCell = New TableHeaderCell()
headercell5.Controls.Add(newcells5)
headercell5.ColumnSpan = 2
rowHeader.Cells.Add(headercell5)
headercell5.HorizontalAlign = HorizontalAlign.Center
rowHeader.Visible = True
Gridview1.Controls(0).Controls.AddAt(0, rowHeader)
Dim newcells7 As Literal = New Literal()
newcells7.Text = "BLCK"
Dim headercell7 As TableHeaderCell = New TableHeaderCell()
headercell7.Controls.Add(newcells7)
headercell7.ColumnSpan = 2
rowHeader.Cells.Add(headercell7)
headercell7.HorizontalAlign = HorizontalAlign.Center
rowHeader.Visible = True
Gridview1.Controls(0).Controls.AddAt(0, rowHeader)
Dim newcells6 As Literal = New Literal()
newcells6.Text = "WHTE"
Dim headercell6 As TableHeaderCell = New TableHeaderCell()
headercell6.Controls.Add(newcells6)
headercell6.ColumnSpan = 2
rowHeader.Cells.Add(headercell6)
headercell6.HorizontalAlign = HorizontalAlign.Center
rowHeader.Visible = True
Gridview1.Controls(0).Controls.AddAt(0, rowHeader)
Dim newcells8 As Literal = New Literal()
newcells8.Text = "MULT"
Dim headercell8 As TableHeaderCell = New TableHeaderCell()
headercell8.Controls.Add(newcells8)
headercell8.ColumnSpan = 2
rowHeader.Cells.Add(headercell8)
headercell8.HorizontalAlign = HorizontalAlign.Center
rowHeader.Visible = True
Gridview1.Controls(0).Controls.AddAt(0, rowHeader)
Dim newcells9 As Literal = New Literal()
newcells9.Text = "Total"
Dim headercell9 As TableHeaderCell = New TableHeaderCell()
headercell9.Controls.Add(newcells9)
headercell9.ColumnSpan = 3
rowHeader.Cells.Add(headercell9)
rowHeader.Visible = True
Gridview1.Controls(0).Controls.AddAt(0, rowHeader)
End If
End Sub