Quantcast
Channel: SCN : Discussion List - SAP Crystal Reports, version for Visual Studio
Viewing all articles
Browse latest Browse all 3636

vb.net load crystal report give me an error

$
0
0

Hi,

 

When I try to run following vb code to show a crystal report, it give me an error

How could I solve it?

Thank you

 

error message

Could not load file or assembly 'file:///C:\Program Files (x86)\SAP BusinessObjects\Crystal Reports for .NET Framework 4.0\Common\SAP BusinessObjects Enterprise XI 4.0\win32_x86\dotnet1\crdb_adoplus.dll' or one of its dependencies. The system cannot find the file specified.

 

 

 

Private Sub printreport()

        Dim ds As New dsinvoice

        Dim dtinvoice As DataTable

        Dim drinvoice As DataRow

 

        dtinvoice = ds.Tables.Add("dtinvoice")

        dtinvoice.Columns.Add("name", Type.GetType("System.String"))

        dtinvoice.Columns.Add("address", Type.GetType("System.String"))

        dtinvoice.Columns.Add("tel", Type.GetType("System.String"))

        dtinvoice.Columns.Add("invoiceid", Type.GetType("System.Int32"))

        dtinvoice.Columns.Add("ponum", Type.GetType("System.String"))

        dtinvoice.Columns.Add("date", Type.GetType("System.DateTime"))

        dtinvoice.Columns.Add("remark", Type.GetType("System.String"))

        dtinvoice.Columns.Add("sale", Type.GetType("System.String"))

        dtinvoice.Columns.Add("transport", Type.GetType("System.String"))

 

        drinvoice = dtinvoice.NewRow

        drinvoice.Item("name") = "日本城"

        drinvoice.Item("address") = "日本城行"

        drinvoice.Item("tel") = "22222222"

        drinvoice.Item("invoiceid") = 1000

        drinvoice.Item("ponum") = "opnum"

        drinvoice.Item("date") = Now

        drinvoice.Item("remark") = "日本城日本城日本城日本城"

        drinvoice.Item("sale") = "陳小姐"

        drinvoice.Item("transport") = "阿全"

 

        Dim objRpt As New rptinvoice

 

        objRpt.SetDataSource(ds)

        CrystalReportViewer1.ReportSource = objRpt

        CrystalReportViewer1.Refresh()

    End Sub


Viewing all articles
Browse latest Browse all 3636

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>