VB中使用水晶报表编程的一种简单方法

　　需要提请大家注意的是，上面代码中的Report.Database.SetDataSource rs, 3, 1是初用水晶报表的程序员容易犯的错误，使用该语句后将造成数据库和水晶报表的连接失败。如何动态调用水晶报表呢？请看第四步。

　　第五步：

　　创建水晶报表和数据库数据源的连接，需要修改上面Form2的代码。

　　Option Explicit
'dim Report as New Cystal1
'上面一行取消
Private Sub Form_Load()
　Dim oApp As New CRAXDRT.Application
　Dim oRpt As CRAXDRT.Report
　Dim reportName As String
　'上面三行是新增加的
　Screen.MousePointer = vbHourglass
　reportName = "\rpt\Pr1.rpt"　　 '定义要引用的rpt文件
　Set oRpt = oApp.OpenReport(App.Path & reportName, 1)
　oRpt.Database.SetDataSource rs '连接水晶报表和数据源
　oRpt.ReadRecords
　CRViewer91.ReportSource = oRpt '启用水晶报表的预览功能
　
　CRViewer91.ViewReport
　Screen.MousePointer = vbDefault
End Sub
Private Sub Form_Resize()
　CRViewer91.Top = 0
　CRViewer91.Left = 0
　CRViewer91.Height = ScaleHeight
　CRViewer91.Width = ScaleWidth
End Sub
Private Sub Form_Unload(Cancel As Integer)
　'Set Report = Nothing
　Set rs = Nothing
　Set conn = Nothing
　Unload Form2
End Sub

　　上面介绍了在VB中使用水晶报表进行报表开发的一种方法，该方法简单易用，适合初学者上手。大家熟悉以后，还可以继续学习Crystal Report提供的API函数（Lib库　Crpe32.dll）进行水晶报表开发，可以获得更大的灵活性。