Problema con Crystal Report
Publicado por Guillermo (40 intervenciones) el 14/07/2020 03:31:28
Hola compañeros, tengo un problema, para variar un poco... jejeeje.
Bueno, el problema es que "a veces" aparece este cuadro de dialogo, cuando le doy al botón Buscar, pero a veces no aparece.
Es como si no le hubiera asignado valores o datos a los componentes. Pero sí, tienen datos cargados.
Les dejo una captura de pantalla.
Les dejo el trozo de código:
Espero me puedan ayudar por favor.
Gracias.
Bueno, el problema es que "a veces" aparece este cuadro de dialogo, cuando le doy al botón Buscar, pero a veces no aparece.
Es como si no le hubiera asignado valores o datos a los componentes. Pero sí, tienen datos cargados.
Les dejo una captura de pantalla.
Les dejo el trozo de código:
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
'rescato las fechas del calendarioDim fi As String = cldInicio.SelectionRange.Start
Dim ff As String = cldFinal.SelectionRange.Start
Dim reporte As New ReporteDiario
VisorDelReporte.ReportSource = reporte
'abro la coneccin y la consultaDim op As New MiConeccion
Dim datos As OdbcDataReader
Dim sql As String = "SELECT * FROM entradas as e, salidas as s " &
"where e.fecha Between '" & fi & "' and '" & ff & "' " &
"and e.patente = s.patente ;"op.con.Open()
Dim cmd As New OdbcCommand(sql, op.con)
Try
datos = cmd.ExecuteReader()
If datos.Read ThenDim patente As String = datos.Item("patente")
Dim id As String = datos.Item("identificador_salida")
reporte.SetParameterValue("txtFechaActual", Date.Now)
reporte.SetParameterValue("Fecha_inicio", fi)
reporte.SetParameterValue("Fecha_final", ff)
reporte.SetParameterValue("Patente", patente)
reporte.SetParameterValue("Identificador", id)
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
Espero me puedan ayudar por favor.
Gracias.
Valora esta pregunta
0