水晶报表初级使用的问题

Huier_lh 2003-02-25 04:31:56
在部件中以看到Crystal Report Control的控件,做了一个"report1.rpt"的报表文件在工程路径下,可是在运行时报错:"report1.rpt"文件不能加载

代码如下:
CrystalReport1.ReportFileName = app.path & "\report1.rpt"

不知道是什么原因,请高手指点!首次使用,实在摸不到头脑!

谢谢!
...全文
53 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
Huier_lh 2003-03-27
  • 打赏
  • 举报
回复
谢谢两位的指点。

谢谢。
jadehong 2003-03-25
  • 打赏
  • 举报
回复
If Right(App.Path, 1) = "\" Then
Cry1.Connect = "ODBC;DATABASE=" & App.Path & "DATA\ZLGYSR.MDB;UID=;PWD=;DSN=ZLGYS"
Else
Cry1.Connect = "ODBC;DATABASE=" & App.Path & "\DATA\ZLGYSR.MDB;UID=;PWD=;DSN=ZLGYS"
End If
Cry1.SQLQuery = ""

Cry1.Destination = crptToWindow
On Error GoTo ERRREP
If Right(App.Path, 1) = "\" Then
Cry1.ReportFileName = App.Path & "REPORTS\gys.rpt"
Else
Cry1.ReportFileName = App.Path & "\REPORTS\gys.rpt"
End If

Cry1.WindowState = crptMaximized
Cry1.Action = 1
lunweiliang 2003-02-28
  • 打赏
  • 举报
回复
with rpt1
.reportfilename=app.path & "\rpt1.rpt"
.discardsavedata=true
.reportsource=crptreport
if ispreview then
.windowstate=crptmaximized
.windowcontrols=true
.destination=crptotwindow
else
.destination=crpttoprinter
endif
end with
Huier_lh 2003-02-25
  • 打赏
  • 举报
回复
是我的问题描述的不清楚吗?

怎么没有一个高手愿意帮忙解答的?
Huier_lh 2003-02-25
  • 打赏
  • 举报
回复
感谢大家指点!

809

社区成员

发帖
与我相关
我的任务
社区描述
VB 多媒体
社区管理员
  • 多媒体
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧