Click here to Skip to main content
15,890,973 members
Please Sign up or sign in to vote.
1.00/5 (1 vote)
See more:
I create a invoice form in vb.net but for print i try to load crystal report it gives me a error.

What I have tried:

Sub Print()
        Try
            Cursor = Cursors.WaitCursor
            Timer1.Enabled = True
            Dim rpt As New rptInvoice 'The report you created.
            Dim myConnection As MySqlConnection
            Dim MyCommand, MyCommand1 As New MySqlCommand()
            Dim myDA, myDA1 As New MySqlDataAdapter()
            Dim myDS As New DataSet 'The DataSet you created.
            myConnection = New MySqlConnection(cs)
            MyCommand.Connection = myConnection
            MyCommand1.Connection = myConnection
            
            MyCommand.CommandText = "SELECT tblcustomer.ID, tblcustomer.cust_name, tblcustomer.address, tblcustomer.state, tblinvoice.Inv_ID, tblinvoice.InvoiceNo, tblinvoice.InvoiceDate, tblinvoice.CustomerID , tblinvoice.GrandTotal, tblinvoice_product.InvP_ID, tblinvoice_product.InvoiceID, tblinvoice_product.ProductID, tblinvoice_product.CostPrice, tblinvoice_product.Qty, tblinvoice_product.Amount, tblinvoice_product.TotalAmount, tblproduct.PID, tblproduct.ProductName, tblproduct.SubCategory, tblproduct.HSNCode, tblproduct.IGST FROM tblcustomer INNER JOIN tblinvoice ON tblcustomer.ID = tblinvoice.CustomerID INNER JOIN tblinvoice_product ON tblinvoice.Inv_ID = tblinvoice_product.InvoiceID INNER JOIN tblproduct ON tblinvoice_product.ProductID = tblproduct.PID where tblinvoice.Inv_ID=@d1"
            MyCommand.Parameters.AddWithValue("@d1", txtInvoiceID.Text)
            MyCommand1.CommandText = "SELECT * from tblcompany"
            MyCommand.CommandType = CommandType.Text
            MyCommand1.CommandType = CommandType.Text
            myDA.SelectCommand = MyCommand
            myDA1.SelectCommand = MyCommand1
            myDA.Fill(myDS, "tblinvoice")
            myDA.Fill(myDS, "tblinvoice_product")
            myDA.Fill(myDS, "tblproduct")
            myDA.Fill(myDS, "tblcustomer")
            myDA1.Fill(myDS, "tblcompany")
            rpt.SetDataSource(myDS)
            rpt.SetParameterValue("p1", txtCustid.Text)
            rpt.SetParameterValue("p2", txtInvoiceID.Text)
            ' rpt.SetParameterValue("p2", Today)
            frmReport.CrystalReportViewer1.ReportSource = rpt
            frmReport.ShowDialog()

        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

    End Sub
Posted
Updated 14-Nov-17 21:37pm

1 solution

This is one of the most common problems we get asked, and it's also the one we are least equipped to answer, but you are most equipped to answer yourself.

Let me just explain what the error means: You have tried to use a variable, property, or a method return value but it contains null - which means that there is no instance of a class in the variable.
It's a bit like a pocket: you have a pocket in your shirt, which you use to hold a pen. If you reach into the pocket and find there isn't a pen there, you can't sign your name on a piece of paper - and you will get very funny looks if you try! The empty pocket is giving you a null value (no pen here!) so you can't do anything that you would normally do once you retrieved your pen. Why is it empty? That's the question - it may be that you forgot to pick up your pen when you left the house this morning, or possibly you left the pen in the pocket of yesterdays shirt when you took it off last night.

We can't tell, because we weren't there, and even more importantly, we can't even see your shirt, much less what is in the pocket!

Back to computers, and you have done the same thing, somehow - and we can't see your code, much less run it and find out what contains null when it shouldn't.
But you can - and Visual Studio will help you here. Run your program in the debugger and when it fails, VS will show you the line it found the problem on. You can then start looking at the various parts of it to see what value is null and start looking back through your code to find out why. So put a breakpoint at the beginning of the method containing the error line, and run your program from the start again. This time, VS will stop before the error, and let you examine what is going on by stepping through the code looking at your values.

But we can't do that - we don't have your code, we don't know how to use it if we did have it, we don't have your data. So try it - and see how much information you can find out!
 
Share this answer
 
Comments
Member 13495873 17-Nov-17 6:14am    
Thank you,
But i didn't find why it shows an error...
Error is on this line --> myDA.Fill(myDS, "tblinvoice")

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)



CodeProject, 20 Bay Street, 11th Floor Toronto, Ontario, Canada M5J 2N8 +1 (416) 849-8900