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

kendyma 2014-02-13 01:56:23
程序是用数据集作为数据连接,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
...全文
116 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
去我的博客里看看,那里有
回复
相关推荐
发帖
VB
创建于2007-09-28

1.6w+

社区成员

VB技术相关讨论,主要为经典vb,即VB6.0
申请成为版主
帖子事件
创建了帖子
2014-02-13 01:56
社区公告
暂无公告