Dim ContadorFilas As Integer = DGVDetalle_ReciboCobro.RowCount
Dim fila As DataSetReportes3.dtsFichaRecibosDeIngreso_TicketRow
'dtsFichaRecibosDeIngreso_Ticket
For i As Integer = 0 To ContadorFilas - 1
fila = DataSetMemoria.dtsFichaRecibosDeIngreso_Ticket.NewdtsFichaRecibosDeIngreso_TicketRow
If IsDBNull(DGVDetalle_ReciboCobro.Rows(i).Cells(3).Value) Then
fila.MontoFacturado = ""
Else
fila.MontoFacturado = Format(CType(DGVDetalle_ReciboCobro.Rows(i).Cells(3).Value, Double), "#,##0.00")
End If
If IsDBNull(DGVDetalle_ReciboCobro.Rows(i).Cells(6).Value) or _
DGVDetalle_ReciboCobro.Rows(i).Cells(6).Value = 0 Then
fila.AbonoFactura = ""
Else
fila.AbonoFactura = Format(CType(DGVDetalle_ReciboCobro.Rows(i).Cells(6).Value, Double), "#,##0.00")
End If