vb6怎样调用水晶报表9的？

[lingxiang]

是要用控件还是代码？？谢谢！！

[jadehong]

Dim CRY As CRAXDRT.Report
Dim CRYAT As CRAXDRT.Application

Set CRYAT = New CRAXDRT.Application

Set CRY = CRYAT.OpenReport(App.Path & "\CP91.rpt")
CR91.ReportSource = CRY
CR91.ViewReport
' CRY.PrintOut True

[moyaxu]

rpt文件是怎样
生成的呢？

[swordbroken]

rpt文件自己做，用CrystalReport

[kongwzg]

up

[chenyu5188]

UP

同意 jadehong(jade)

[benxie]

是呀。
不太好修改的。

[zengguoxun]

在工程里添加 crystalreport
选择现成的报表指定文件就可以了



Dim Report As New CrystalReport2

Private Sub Form_Load()
Screen.MousePointer = vbHourglass
CRViewer91.ReportSource = Report
CRViewer91.ViewReport
Screen.MousePointer = vbDefault

End Sub