VB6+Crystal7.0简单问题？？？？解决立马结贴

haipingma 2003-08-19 05:47:39

Dim cryApp As New CRAXDDT.Application
Dim report As CRAXDDT.report
Set report = cryApp.OpenReport(App.path & "\Report1.rpt")
CRViewer1.ReportSource = report '出问题的语句
CRViewer1.ViewReport

运行到CRViewer1.ReportSource = report
出现类不支持自动化或期望的接口
请高手指点

...全文

53 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

dreamreality 2003-08-20

打赏
举报

Dim cryApp As New CRAXDRT.Application
Dim report As CRAXDRT.report
Set report = cryApp.OpenReport(App.path & "\Report1.rpt")
CRViewer1.ReportSource = report
CRViewer1.ViewReport
搞定
加分
给分

dreamreality 2003-08-19