SOMAR GRUPO DATAGRIDVIEW

DAMASCENO.CESAR 15/03/2014 15:02:58
#436087 Resposta escolhida

Morceli, vi seu problema e criei este código, e se é isto que voce quer:

Dim A, B, C As Integer
Dim valor = [Ô][Ô]
Dim coluna As String
Dim soma As Double
B = 0
Soma = 0
C = 1
A = (DgvGrupo.Rows.Count - 1)
coluna = DgvGrupo.Rows(B).Cells(0).Value.ToString
Do While Not B > A
[ô]
If DgvGrupo.Rows(B).Cells(0).Value = coluna Then
DgvGrupo.Rows(B).Selected = True
If (DgvGrupo.SelectedCells(1).Value.ToString) <> Nothing Then
valor = (DgvGrupo.SelectedCells(1).Value.ToString)
soma += valor
DgvGrupo.Rows(B).Selected = False
End If
Else
coluna = DgvGrupo.Rows(B).Cells(0).Value
DgvGrupo.Rows.Insert(B)

DgvGrupo.Rows(B).Cells(1).Value = [Ô]Total[Ô]
DgvGrupo.Rows(B).Cells(2).Value = soma
soma = 0
A += 1

End If
If B = A Then

If DgvGrupo.Rows(B).Cells(0).Value = coluna Then
DgvGrupo.Rows(B).Selected = True
If (DgvGrupo.SelectedCells(1).Value.ToString) <> Nothing Then
valor = (DgvGrupo.SelectedCells(1).Value.ToString)
soma += valor
DgvGrupo.Rows(B).Selected = False
End If

DgvGrupo.Rows.Add()
DgvGrupo.Rows(B + 1).Cells(1).Value = [Ô]Total[Ô]
DgvGrupo.Rows(B + 1).Cells(2).Value = soma
End If
End If
B += 1
Loop

este codigo é só para somar por grupo, faça um codigo em separado para abastecer o DGV e em seguida roda esse

MORCELI 16/03/2014 00:59:03
#436094

é isso ai, obrigado pela atenção DAMASCENDO