Error crystal (cadena de entrada no tiene formato correcto)
Publicado por Marc (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:
Muchísimas gracias de antemano.
Marc
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
0