Dim i As Integer = 0
Dim tmptxts6 As Double = 0
Me.DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(6).Value = 0
For i = 0 To DataGridView1.Rows.Count - 1
tmptxts6 += CDbl(DataGridView1.Rows(i).Cells(6).Value)
Me.DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(6).Value = tmptxts6