Passing Parameter from VB to CR

[teqkillah]

Good Day Guys! I have a new problem with my program. i've already created my report in crystal. within my report it has parameter (myinvoice) that the user needs to input. after that ive attached that report tom my reportviewer. i also added a textbox in my form where my value for the parameter is assigned. the problem now is the data being generated by the CR does not match with the parameter stated in my textbox.
heres my code:
Private Sub frmReport_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = invoice
Dim txtvalue As String
txtvalue = TextBox1.Text
Dim myreport As New rptinvoice
myreport.SetParameterValue("myinvoice", txtvalue)
End Sub


TIA

[debasisdas]

Try to change the event from form load to any button click event after form load.

[teqkillah]

Try to change the event from form load to any button click event after form load.

sir,
the value of invoice is inherited from the other form. thats why i've created the code in the for load event. once i call my report form it will generate the report base on the parameter assinged to my textbox.

[teqkillah]

still waiting for your advices.

[Shashi Sadasivan]

have you used the debugger to find out what is the value of the variable txtvalue being sent to your crystal report document?

[teqkillah]

have you used the debugger to find out what is the value of the variable txtvalue being sent to your crystal report document?

ive already revised my code but still it didnt work. ive already tried assigning a value to the sql command instead of a textbox1.text but still it didnt work. i desperately need your help guys.

Private Sub frmReport_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = invoice
Dim rpt As New rptinvoice

Try
connection.Open()
Dim dat3 As SqlDataAdapter = New SqlDataAdapter("select a.*,b.* from inv_hdr a,inv_dtl b where a.invoice = '" & TextBox1.Text & "' and b.invid = a.invoice ", connection)
Dim dt3 As New DataSet
dat3.Fill(dt3, "sinv")
rptviewer.ReportSource = rpt

Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
connection.Close()
End Try
End Sub