Mira yo le hago de la siguiente manera.
1. creo el crystal y lo guardo.
2. lo adiciono al proyecto.
3. creo el formulario con el CrystalReportViewer
4. creo los textbox que necesito para enviar los parametros al CrystalReport
es alcgo como lo siguiente.
Public Class Form13
Dim con As New MySqlConnection(My.Settings.MysqlConnectionString)
Private Sub ComboBox1_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.DropDown
Dim dr As MySqlDataReader
Dim str As New MySqlCommand("Select f001_id_ped_unoee from t001_pedido_venta")
con.Open()
str.Connection = con
dr = str.ExecuteReader
ComboBox1.Items.Clear()
Try
While dr.Read
ComboBox1.Items.Add(dr.Item(0).ToString)
End While
Catch ex As Exception
Finally
con.Close()
dr = Nothing
str = Nothing
End Try
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim rept As New PVproduccion
Dim par As New ParameterField
par = rept.ParameterFields("pedido")
par.CurrentValues.AddValue(ComboBox1.Text)
Dim con As New CrystalDecisions.Shared.ConnectionInfo
rept.SetDatabaseLogon("******", "******")
Me.CrystalReportViewer1.ReportSource = rept
End Sub
Private Sub Form13_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Thread.CurrentThread.CurrentCulture = _
New CultureInfo("es-CO", False)
' Obtengo la informaci?n de formato n?merico, correspondiente
' a la nueva configuraci?n establecida.
'
Dim nfi As Globalization.NumberFormatInfo = _
Thread.CurrentThread.CurrentCulture.NumberFormat
Console.WriteLine(nfi.NumberDecimalSeparator)
Console.WriteLine(nfi.NumberGroupSeparator)
Console.WriteLine(nfi.CurrencyDecimalSeparator)
Console.WriteLine(nfi.CurrencyGroupSeparator)
Console.WriteLine(nfi.CurrencySymbol)
End Sub
End Class
si ter sive de algo marca la respuesta.
