external Crystal Report

[复制链接]

hooi1983

发表于 20-8-2006 04:43 PM | 显示全部楼层 |阅读模式

如果要将 crystal report 当成 external report
要如何写呢？

我是酱写，不过如果电脑没有 Crystal Report 就会出 error

Public objReport As Object
Public locReport As String    'Location
Dim CR As New CRAXDDRT.Application

Private Sub Form_Load()
  Set objReport = CR.OpenReport(locReport)
  objReport.DiscardSavedData
  objReport.Database.SetDataSource rsReport, 3, 1
  CRViewer91.ReportSource = objReport
  CRViewer91.ViewReport
End Sub

请问有没有更好的方法呢？

使用道具举报