none
error de cristal report vshost32. exe dejo de funcionar RRS feed

  • Pregunta

  • 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

    viernes, 10 de marzo de 2017 18:05

Todas las respuestas

  • 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

    sábado, 18 de marzo de 2017 2:04