Crystal Report - Error crystal (cadena de entrada no tiene formato correcto)

   
Vista:

Error crystal (cadena de entrada no tiene formato correcto)

Publicado por Marc ferrertecno@gmail.com (1 intervención) el 29/05/2013 11:04:07
Buenas tardes,

Mi nombre es Marc y llevo un mes aproximadamente diseñando y programando una aplicación para una empresa hotelera bastante sencilla. Casi terminando el proyecto me ha surgido el siguiente problema:

- En form1 (formulario principal) contiene varios textbox enlazados a la base de datos, el CrystalReportViewer y dos botones (Calcular y Rellenar report). Si pulso el botón rellenar report me muestra el siguiente mensaje:

La cadena de entrada no tiene el formato correcto

Y no consigo averiguar por que me pone eso. Les dejo el código del botón para ver si alguien es capaz de encontrarlo:

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Private Sub btnRellenar_Click(sender As System.Object, e As System.EventArgs) Handles btnRellenar.Click
        Dim SQL, vNombre, vApellidos, sformula As String
        Dim dsReport As New FacturacionDataSet1
        Dim Param(6) As String
        Dim vFEntrada, vFSalida As Date
        Dim vIDFactura As Integer
        Dim dias As TimeSpan = dtpSalida.Value.Subtract(dtpEntrada.Value)
 
        Try
            vIDFactura = Convert.ToInt16(Me.txtIDFactura.Text)
            vNombre = txtNombre.Text.ToString
            vApellidos = txtApellidos.Text.ToString
            vFEntrada = dtpEntrada.Text.ToString
            vFSalida = dtpSalida.Text.ToString
            If Len(vNombre) < 1 Or Len(vApellidos) < 1 Then
                MsgBox("Nombre o Apellidos vacios", MsgBoxStyle.Exclamation)
            End If
 
            sformula = "{Factura.IDFormula}='" & Convert.ToInt32(txtIDFactura.Text)
 
            Param(1) = txtNoche.Text.ToString & " €"
            If chkLavanderia.Checked = True Then
                Param(2) = Lavanderia
            Else
                Param(2) = 0
            End If
            If chkParquing.Checked = True Then
                Param(3) = Parquing
            Else
                Param(3) = 0
            End If
            Param(4) = txtTotal.Text.ToString
            Param(5) = dias.Days
            Param(6) = txtNoche.Text * dias.Days
            SQL = "SELECT * FROM Facturas"
            Dim cmd As New OleDb.OleDbCommand(SQL, Con)
            Dim daReport As New OleDb.OleDbDataAdapter(cmd)
            daReport.Fill(dsReport, "Facturas")
            daReport.TableMappings.Add("", "Facturas")
 
            Dim listado As New CrystalReport1
            listado.SetDataSource(dsReport)
            listado.SetParameterValue(0, Param(1))
            listado.SetParameterValue(1, Param(2))
            listado.SetParameterValue(2, Param(3))
            listado.SetParameterValue(3, Param(4))
            CrystalReportViewer1.ReportSource = listado
            CrystalReportViewer1.SelectionFormula = sformula
        Catch ex As Exception
            MessageBox.Show("Error: " & ex.Message)
        End Try
    End Sub


Muchísimas gracias de antemano.

Marc
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder