Sumar registros repetidos de un datagridview en otro

[PatricioGalarzaR]

HAS QUE POR FIN, YA FUNCIONO LE HICE UNOS CAMBIOS AL RECORRIDO CAMBIE LOS 'FOR EACH' POR UN 'FOR' NORMAL PARA PODER HACER MEJOR EL SEGUIMIENTO Y ME DI CUENTA QUE AL AGREGAR LA NUEVA FILA AL DGV DE ORDEN DE COMPRA TENIA 6 COLUMNAS Y ESTABA ENVIANDO 5 PARÁMETROS POR ESO NO ACUMULABA PORQUE LA CANTIDAD LA COLUMNA ESTABA VACIA.... COSAS QUE PASAN

AQUÍ PONGO EL CÓDIGO DE COMO ME FUNCIONO:

Código vb:

Try
            ' SE CARGA EL PRIMER DATAGRIDVIEW
            dgvDetalleRequisicionPS.DataSource = objetoOrdenCompra.buscarDetalleRequisicionProductoServicioXIdProveedor(lblIdProveedorGeneral.Text)
            'RECORRE EL DATAGRIDVIEW CARGADO ANTERIORMENTE
            For indice = 0 To dgvDetalleRequisicionPS.RowCount - 1
                Dim Añadir As Boolean = True
                'RECORRE EL DATAGRIDVIEW QUE SE VA A LLENAR
                For indiceOrden = 0 To dgvDetalleOrdenCompra.RowCount - 2
                    'PREGUNTA SI LOS ITEMS SON IGUALES, PARA VER SI YA HA SIDO AGREGADO
                    If dgvDetalleOrdenCompra.Rows(indiceOrden).Cells("idItem").Value = dgvDetalleRequisicionPS.Rows(indice).Cells("ID_SECUENCIAL_ITEM").Value Then
                    'SI YA HA SIDO AGREGADO ACUMULA LAS CANTIDADES                        
dgvDetalleOrdenCompra.Rows(indiceOrden).Cells("cantidadProductoServicio").Value = CType(dgvDetalleOrdenCompra.Rows(indiceOrden).Cells("cantidadProductoServicio").Value, Integer) + CType(dgvDetalleRequisicionPS.Rows(indice).Cells("CANTIDAD").Value, Integer)
                        'SE CAMBIA EL VALOR DE "AÑADIR" PARA QUE NO AGREGUE NUEVA FILA
                        Añadir = False
                    End If
                Next
                'SI "AÑADIR" ES VERDADERO NO HUBO COINCIDENCIAS Y AGREGA NUEVA FILA
                If Añadir = True Then
                    'CREA LA NUEVA FILA
                    dgvDetalleOrdenCompra.Rows.Add()
                    'SE AGREGA VALORES SOLO A LAS COLUMNAS QUE NECESITAMOS DE LA NUEVA FILA
                    dgvDetalleOrdenCompra.Rows(indice).Cells(0).Value = dgvDetalleRequisicionPS.Rows(indice).Cells("ID_SECUENCIAL_ITEM").Value.ToString
'ESTE PASO ES PROPIO DE LAS NECESIDADES DEL FORMULARIO SE PUEDE ENVIAR UN VALOR DIRECTO PERO QUI SE ENVIA EL VALOR DEL ID_ITEM PAR QUE ME DEVUELVA EL NOMBRE_ITEM
                    objetoSecuencialItem.buscarNombreSecuencialItemXIdSecuencialItem(dgvDetalleOrdenCompra.Rows(indice).Cells(0).Value)
                    dgvDetalleOrdenCompra.Rows(indice).Cells(1).Value = objetoSecuencialItem.nombreSecuencial
                    dgvDetalleOrdenCompra.Rows(indice).Cells(2).Value = dgvDetalleRequisicionPS.Rows(indice).Cells("UMEDIDA_DETALLE_REQUISICION_PS").Value.ToString
                    dgvDetalleOrdenCompra.Rows(indice).Cells(3).Value = dgvDetalleRequisicionPS.Rows(indice).Cells("CANTIDAD").Value
                End If
            Next
        Catch ex As Exception
            MsgBox("CARGAR DETALLE ORDEN DE COMPRA." & vbNewLine & ex.Message.ToString, MsgBoxStyle.Critical, "MENSAJE DE EXCEPCIÓN")
        End Try