pasar los datos de datagridview a crystal reports Filtrados
Publicado por EliRD (3 intervenciones) el 02/10/2015 14:30:24
programo en vb.net 2010 y uso Crystal Report 2010
la forma como yo paso los datos de datagridview a crystal reports es as:
ver este enlace: http://vbcodigopocketpc.blogspot.com/2009/01/creacin-de-reportes-con-crystal-reports.html
el código me funciona bien, pero quiero pasar los datos de datagridview a crystal reports con una condición: por ejemplo: tengo las siguientes columnas en mi datagridview.
En mi reporte de crystal reports debería salir así (Filtrado):
Monto Factura, Abono Factura.
2500 2500
5500 5500
2500 2500
para yo pasar los datos del datagridview a Crystal Report uso este código, pero no sale filtrado, sale todo completo y debería salir filtrado.
Espero en Dios que alguien puede ayudarme con esto
Saludos cordiales.
la forma como yo paso los datos de datagridview a crystal reports es as:
ver este enlace: http://vbcodigopocketpc.blogspot.com/2009/01/creacin-de-reportes-con-crystal-reports.html
el código me funciona bien, pero quiero pasar los datos de datagridview a crystal reports con una condición: por ejemplo: tengo las siguientes columnas en mi datagridview.
Monto Factura, Abono Factura.
2500 2500
5500 5500
8300 0
6500 0
2500 2500
2500 2500
5500 5500
8300 0
6500 0
2500 2500
En mi reporte de crystal reports debería salir así (Filtrado):
Monto Factura, Abono Factura.
2500 2500
5500 5500
2500 2500
para yo pasar los datos del datagridview a Crystal Report uso este código, pero no sale filtrado, sale todo completo y debería salir filtrado.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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) Then
fila.AbonoFactura = ""
Else
fila.AbonoFactura = Format(CType(DGVDetalle_ReciboCobro.Rows(i).Cells(6).Value, Double), "#,##0.00")
End If
Espero en Dios que alguien puede ayudarme con esto
Saludos cordiales.
Valora esta pregunta
0
