none
Error al mandar imprimir RRS feed

  • Pregunta

  • Hola buenas noches estoy tratando de imprimir lo que tengo en el datagridview pero me tira un error al momento de mandar los datos hacia el crystal report, podrian ayudarme por favor tengo este codigo.

    Co esto mando lo que tengo del datagrid a el crystal.

    Private Sub BtnImprimir_Click(sender As Object, e As EventArgs) Handles BtnImprimir.Click
            Try
                Dim dt As New DataTable
                dt = Me.DGVImpresion.DataSource ' aqui me marca el error

                Dim Cr As New CRAsignacion
                Cr.SetDataSource(dt)

                Dim R As New FrmReportes
                R.CRVAsignacion.ReportSource = Cr
                R.ShowDialog()
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
        End Sub

    Y con esto lleno el datagridview

    Private Sub llamagrid()

            Dim conn As New SqlConnection("Data Source=CESARORTEGA-PC;Initial Catalog=Inventario;Integrated Security=True")
            Dim da As New SqlDataAdapter("Select id_asignacion, Resguardante, Articulo, Inventario, No_Serie, Modelo, Fecha  from Asignacion", conn)
            Dim ds As New DataSet

            da.Fill(ds)
            dv.Table = ds.Tables(0)
            DGVImpresion.DataSource = dv

        End Sub

    no se si aqui sea el error ya que me dice que no se puede convertir un objeto de tipo 'System.data.dataview' al tipo 'System.data.dataTable'.

    Aun sigo analizando el codigo para ver donde encuentro el erro y si pudieran ayudarme estaria genial. Les agradezco.


    Cesar Ortega


    jueves, 7 de abril de 2016 2:41

Respuestas

  • Hola:
    Cambia esta linea
     dt = Me.DGVImpresion.DataSource ' aqui me marca el error
    por esta otra
     dt = CType(Me.DGVImpresion.DataSource, DataTable)

    Un saludo desde Bilbo
    Carlos
    • Marcado como respuesta Cesar_Ortega lunes, 11 de abril de 2016 19:21
    jueves, 7 de abril de 2016 7:33

Todas las respuestas

  • Hola:
    Cambia esta linea
     dt = Me.DGVImpresion.DataSource ' aqui me marca el error
    por esta otra
     dt = CType(Me.DGVImpresion.DataSource, DataTable)

    Un saludo desde Bilbo
    Carlos
    • Marcado como respuesta Cesar_Ortega lunes, 11 de abril de 2016 19:21
    jueves, 7 de abril de 2016 7:33
  • Muchas gracias, por la ayuda me funciona a la perfeción, una duda si yo capturo un numero como doble formado por varias partes osea de un lado tomo "551" y de otro lado tomo "16" y al ultimo le agrego yo "0001" pero cuando lo presento en crystal report me sale 551.16.0001,00 como puedo que me salga el puro numero 551160001 sin los decimales ya que no lleva. por favor te agradecieria una ayuda.

    Cesar Ortega

    jueves, 7 de abril de 2016 15:30
  • Hola:
    Yo te aconsejo que en vez de doble, le asignes String, y lo cargas con los valores que te apareceran en el Crystal

    Un saludo desde Bilbo
    Carlos

    jueves, 7 de abril de 2016 19:24
  • Excelente Carlos, muchas gracias deja lo hago y te comento.


    Cesar Ortega

    lunes, 11 de abril de 2016 13:36
  • Perfecto me sirvio de mucho y ya invenstigando mas el Add.config le agregue una linea de codigo mas

    en esta linea se lo agregue

    <startup useLegacyV2RuntimeActivationPolicy="true">
        <supportedRuntime version="v4.0"/>
      </startup>


    Cesar Ortega

    lunes, 11 de abril de 2016 13:41