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