error de cristal report vshost32. exe dejo de funcionar

Question

hola amigos muchas gracias de antemano

tengo vs 2015 y cristal report para visual estudio

y el siguiente codigo:

hago una consulta sql y la muestro en un datagridview y luego tengo un boton y mando los datos del datagrid al reporte de cristal report pero al salir de la aplicacion me manda el mensaje vshost32.exe dejo de funcionar y esto me pasa solo cuando visualizo el reporte, ya modifique el app.config

 <startup useLegacyV2RuntimeActivationPolicy = "true" >
    <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5.2"/>
  </startup>
    y nada

dejo el codigo

Imports System.Windows.Forms
Imports System.Data.SqlClient
Imports System.Data.OleDb
Imports System.Data.SqlClient.SqlException
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Try
            Dim dt As New DataTable

            Dim conexion As String = "Data Source=miip;Initial Catalog=mibase;Integrated Security=True"

            Using adaptador As New SqlDataAdapter("select numpedido, fechapedido, almacenpedido, almacensurtido, usuariopedido, estatus from pedido  ", conexion)


                adaptador.Fill(dt)



            End Using


            DataGridView1.DataSource = dt
            DataGridView1.Columns(0).HeaderText = "# DE PEDIDO" ' cambiar el nombre de la columna de la tabla
            DataGridView1.Columns(1).HeaderText = "FECHA DE PEDIDO"
            DataGridView1.Columns(2).HeaderText = " ALMACEN DE PEDIDO"
            DataGridView1.Columns(3).HeaderText = "ALMACEN QUE SURTIRA "
            DataGridView1.Columns(4).HeaderText = "QUIEN HACE PEDIDO"
            DataGridView1.Columns(5).HeaderText = "ESTATUS"




        Catch ex As Exception
            MessageBox.Show(ex.Message, "atencion", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End Try

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim dt As New DataTable
        dt = Me.DataGridView1.DataSource

        Dim cr As New CrystalReport1
        cr.SetDataSource(dt)

        Dim R As New Form2


        R.CrystalReportViewer1.ReportSource = cr
        R.showdialog()

    End Sub

End Class

Answer 1

Saludos:

Trata de descargar el reporte de memoria, usando Try/Catch, asi:

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
        Dim dt As New DataTable
        dt = Me.DataGridView1.DataSource

        Dim cr As New CrystalReport1
        cr.SetDataSource(dt)

        Dim R As New Form2


        R.CrystalReportViewer1.ReportSource = cr
        R.showdialog()
Catch
Finally
            If Not IsNothing(cr) Then
                If cr.IsLoaded Then
                    cr.Close()
                End If
            End If
        End Try


    End Sub

Espero ayude.

JOSE LUIS

---

Dios NO los llamo LAS DIEZ RECOMENDACIONES