Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Crystal Report » pasar los datos de datagridview a crystal reports Filtrados

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

Volver
Nuevo Tema
<<>>
 
Vista:
Mensajes realizados anteriormente (No estaban la última vez que entraste)pasar los datos de datagridview a crystal reports Filtrados
EliRD (02/10/2015 14:30:24)1.641 visitas
1 respuesta
Mensajes realizados anteriormente (No estaban la última vez que entraste)pasar los datos de datagridview a crystal reports Filtrados
apacheco (15/12/2015 15:47:40)

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
sin imagen de perfil
Val: 23
Ha disminuido 1 puesto en Crystal Report (en relación al último mes)
Gráfica de Crystal Report

pasar los datos de datagridview a crystal reports Filtrados

Publicado por apacheco (96 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