关于水晶报表加载失败的问题请教

2014-02-13 01:56:23 231 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

海康威视VS互联网大厂：薪资、福利、工作强度全方位对比本文全面对比了海康威视与互联网大厂在薪资、福利和工作强度等方面的差异。海康威视提供稳定的薪资结构和较低的工作强度，适合追求专业深度的职场人；而互联网大厂则以高薪和快速成长吸引人才，但工作压力较大。文章还分析了职业发展路径和长期价值，帮助求职者做出明智选择。阅读详情

程序是用数据集作为数据连接，RPT也使用了绝对路径，但加载还是提示失败，请教大大们是什么原因啊？另外想请教怎么能够在程序里对水晶报表的字段赋值啊？
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\db1.mdb"
Dim str1 As String = "SELECT 市场代码,单号,器具名称,型号规格,最大秤量,生产厂家,强检标签号,检定结论,检定日期,铅封号或不合格原因,证书号 FROM 器具信息表 WHERE 器具名称='电子秤' AND 检定结论='合格' AND 单号='" & TextBox1.Text & "'"
Dim ScDs As New DataSet '证书打印表
ScDs = PopulateDataSet(connectionString, "器具信息表", str1, ScDs)
' 声明并创建一个报表对象
Dim myReportDoc As New ReportDocument()
' 载入报表
myReportDoc.Load("d:\CrytalReport1.rpt")
' 将数据集 ds 传递给报表对象
myReportDoc.SetDataSource(ScDs)
' 绑定报表查看器控件
MyCRV.ReportSource = myReportDoc
Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try

End Sub

...全文