vb 怎么直接调用rpt文件.

Question

我有个Crystal report 10做的报表,
怎样用vb直接调用.

Answer 1

Private Sub Form_Load()
  Dim CRY     As CRAXDRT.Report
      Dim CRYAT     As CRAXDRT.Application
      Set CRYAT = New CRAXDRT.Application
      Set CRY = CRYAT.OpenReport(App.Path + "\XXXXX.rpt")
      Screen.MousePointer = vbHourglass
      
      Form1.CRViewer1.ReportSource = CRY
      Form1.CRViewer1.ViewReport
      
      Screen.MousePointer = vbDefault
End Sub
Private Sub Form_Resize()
CRViewer1.Top = 0
CRViewer1.Left = 0
CRViewer1.Height = ScaleHeight
CRViewer1.Width = ScaleWidthEnd Sub