Que tal amigos, no tengo mucha experiencia al trabajar con Crystal reports, sin embargo he logrado crear una aplicacion relacionada a una base de datos mysql la cual me permite generar las boletas de calificaciones del centro de idiomas de mi institución sin embargo presento un problema que ya e investigado pero no encuentro una solución especifica.

Al mandar a llamar al formulario el cual tiene integrado crystal report me manda con normalidad la boleta y los datos extraídos de la base de datos en relación a mi consulta, el problema es que, al realizar una segunda consulta y llamar un nuevo reporte, este aparece mas la impresión o reporte de la primera consulta.

Caso 1:



Caso 2:




Mi pregunta si me puede ayudar de manera que al mandar a llamar cada boleta, me aparezca solo la boleta de la consulta actual y no una especie de historial de las consultas anteriores.

he intentado activado la propiedad de "ReuseParameterValuesORefresh" activando desde propiedades a un valor "True" pero no se que mas pueda hacer.

mis ideas era realizar un boton que al cerrar el formulario donde se encuentra el crystal reports, vaciara o eliminara los reportes anteriores o que al generar un nuevo reporte lo hiciera de modo que solo aparezca un reporte por consulta.

Esto es parte de mi CF para llamar al Reporte

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_Imprimir_boleta.Click

If TB_Registro.Text = "Cargado" Then


Conexion_Reporte()
Else
MsgBox("No tiene seleccionado ningun alumno, Carge primero un alumno")


End If

End Sub


Sub Conexion_Reporte()

Con.ConnectionString = "server=localhost;Database=ingles;Uid=root;Pwd=123 45 "
Cmd.Connection = Con
Con.Open()

Cmd.CommandText = "Select R.ID, R.Alumno, R.N_Control, R.Especialidad, C.Calif_Primer_Nivel, C.`Tipo 1`, C.Calif_Segund_Nivel, C.`Tipo 2`, C.Calif_Tercer_Nivel, C.`Tipo 3`, C.Calif_Cuarto_Nivel, C.`Tipo 4`, C.Teacher, C.Curso, C.Promedio FROM registro_alumnos R, registro_Calificacion C WHERE R.ID = C.ID And R.ID = '" & TB_Id2.Text & "' order by ALumno "


Da.SelectCommand = Cmd
Da.Fill(Ds)

ARchivo_Reporte()
Con.Close()

End Sub


Sub eliminar_xml()

If My.Computer.FileSystem.FileExists("C:\Centro de Idiomas archivo\boleta_1.xml") Then
My.Computer.FileSystem.DeleteFile("C:\Centro de Idiomas archivo\boleta_1.xml")
End If

End Sub



Sub ARchivo_Reporte()

Dim ruta As String

ruta = "c:\Centro de Idiomas archivo"

If Directory.Exists(ruta) Then
eliminar_xml()
Ds.WriteXml("C:\Centro de Idiomas archivo\boleta_1.xml", XmlWriteMode.WriteSchema)

Reporte_Boleta_ind.Show()

Else
System.IO.Directory.CreateDirectory("c:\Centro de Idiomas archivo")
eliminar_xml()
Ds.WriteXml("C:\Centro de Idiomas archivo\boleta1.xml", XmlWriteMode.WriteSchema)

' Reporte_Boleta_ind.Show()

End If

End Sub

Espero me puedan ayudar con este problema

Buenos días quisiera saber si pudiste solucionar este problema ya que me pasa lo mismo. Saludos