Ver Mensaje Individual
  #2 (permalink)  
Antiguo 07/08/2013, 12:59
alexg88
 
Fecha de Ingreso: abril-2011
Mensajes: 1.342
Antigüedad: 13 años
Puntos: 344
Respuesta: Sumar registros repetidos de un datagridview en otro

Me extraña que se forme un bucle infinito, más bien sería que no hace nada, a no ser que falte algo más en el código.

El problema es que el If de "Añadir" debe estar fuera del segundo For:

Código vb:
Ver original
  1. Public Sub cargarDetalleOrdenCompra()
  2.     Try
  3.         'Aqui cargo el primer DataGridView
  4.         dgvDetalleRequisicionPS.DataSource = objetoOrdenCompra.buscarDetalleRequisicionProducto ServicioXIdProveedor(lblIdProveedorGeneral.Text)
  5.         'Aqui intento pasar los datos al otro Datagridview
  6.         For Each Fila1 As DataGridViewRow In dgvDetalleRequisicionPS.Rows
  7.             Dim Añadir As Boolean = True
  8.             For Each Fila2 As DataGridViewRow In dgvDetalleOrdenCompra.Rows
  9.                 If Fila2.Cells("idItem").Value = Fila1.Cells("ID_SECUENCIAL_ITEM").Value.ToString Then
  10.                     Fila2.Cells("cantidadProductoServicio").Value = CType(Fila2.Cells("cantidadProductoServicio").Valu e, Integer) + CType(Fila1.Cells("CANTIDAD").Value, Integer)
  11.                     Añadir = False
  12.                     Exit For
  13.                 End If             
  14.             Next
  15.            
  16.             If Añadir = True Then
  17.                 dgvDetalleOrdenCompra.Rows.Add(Fila1.Cells("ID_SECUENCIAL_ITEM").Value.ToString, Fila1.Cells("UMEDIDA_DETALLE_REQUISICION_PS").Value.ToString, Fila1.Cells("CANTIDAD").Value.ToString, "", "")
  18.             End If
  19.         Next
  20.     Catch ex As Exception
  21.         MsgBox("CARGAR DETALLE ORDEN DE COMPRA." & vbNewLine & ex.Message.ToString, MsgBoxStyle.Critical, "MENSAJE DE EXCEPCIÓN")
  22.     End Try
  23. End Sub

Si sigue dando problemas, habría que ver que datos hay exactamente.