Crystal Report - pasar los datos de datagridview a crystal reports Filtrados

   
Vista:

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.

Monto Factura, Abono Factura.
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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

pasar los datos de datagridview a crystal reports Filtrados

Publicado por apacheco (92 intervenciones) el 15/12/2015 15:47:40
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar