Solved

How to add a new row in datagridview in vb.net that calculates totals for columns

Posted on 2010-11-13
4
1,007 Views
Last Modified: 2012-05-10
Hi,
I have populated datagridview from sql server database...
Datagridview has 5 colums...
First column is varchar column type and the rest are float....
The datagridview counts 15 rows....
I would like to add 16 th row to show sum of each respective column...It should look like

TOTAL    Sum(column1)    Sum(Column2)  Sum (Column3)     Sum(Column4)

Can someone help me to make this working....
Thanks...
0
Comment
Question by:alsam
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
4 Comments
 
LVL 17

Expert Comment

by:nepaluz
ID: 34128830
try this

'insert your column
Dim NewColumn As New DataGridViewColumn
Form1.DataGridView1.Columns.Insert(16, NewColumn)
Dim ColumnsToAdd As New List(Of Integer) From {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16}
For x = 0 To Form1.DataGridView1.RowCount - 1
    Form1.DataGridView1.Item(16, x).Value = SumColumns(ColumnsToAdd, x)
Next

'and alsoadd this function
Function SumColumns(ByVal columns As List(Of Integer), ByVal row As Integer) As Double

Dim q As Double = 0.0
For Each y As Integer In columns
    Try
        q = Form1.DataGridView1.Item(y, row).Value + q
    Catch ex As Exception
    End Try
Next
Return q

End Function

Open in new window

0
 
LVL 17

Expert Comment

by:nepaluz
ID: 34128837
Actually, you have to remove the 16 from the list that calls the function.
0
 
LVL 36

Expert Comment

by:Miguel Oz
ID: 34129183
See code below:

For more datagridview usage check:
http://dotnetperls.com/datagridview-vbnet
'insert total row
Dim totalIndex As Integer = DataGridView1.Rows.Add()
'calculate totals
For x = 1 To Form1.DataGridView1.ColCount - 1
    Form1.DataGridView1.Rows.Item(totalIndex).Cells(x).Value = SumColumns(x)
Next

Function SumColumns(ByVal col As Integer) As Double

Dim q As Double = 0.0
For x = 0 To Form1.DataGridView1.RowCount - 2
    q = Form1.DataGridView1.Item(x).Cells(col).Value + q
Next
Return q

End Function

Open in new window

0
 
LVL 83

Accepted Solution

by:
CodeCruiser earned 500 total points
ID: 34131209
0

Featured Post

On Demand Webinar - Networking for the Cloud Era

This webinar discusses:
-Common barriers companies experience when moving to the cloud
-How SD-WAN changes the way we look at networks
-Best practices customers should employ moving forward with cloud migration
-What happens behind the scenes of SteelConnect’s one-click button

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Article by: Kraeven
Introduction Remote Share is a simple remote sharing tool, enabling you to see, add and remove remote or local shares. The application is written in VB.NET targeting the .NET framework 2.0. The source code and the compiled programs have been in…
It was really hard time for me to get the understanding of Delegates in C#. I went through many websites and articles but I found them very clumsy. After going through those sites, I noted down the points in a easy way so here I am sharing that unde…
Nobody understands Phishing better than an anti-spam company. That’s why we are providing Phishing Awareness Training to our customers. According to a report by Verizon, only 3% of targeted users report malicious emails to management. With compan…

733 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question