浅谈crystal reports在VB中的调用
http://edu.cn700.com (点击数：9 时间： 2005-1-14)

 
环境：VB6.0,crystal reports 9.0
在一个项目中用到了crystal reports，总结一些经验和教训。
以做一张单据的套打为例。
单据包括单据头，单据体。单据头和单据体可能是一对多的关系。并且他们分别存在于两张表当中，用字段FID做关联。要求能够动态的传入参数FID，显示不同的结果。
首先，打开crystal reports,做好一张单据的模板rpt。制作报表的方法有很多，比如：用它的图形化工具直接建立几个表之间的连接，然后将想要显示的字段托到报表当中；或是调用一个已经写好的存储过程；或是直接编辑COMMAND。再将想要显示的字段托到报表当中。然而，经常问题就出在这里，用图形化工具制作的报表，在VB中给此报表传入DATASOURCE时经常会因为字段不对应，而导致部分数据无法显示。所以建议在crystal reports中利用COMMAND编辑sql语句，制作单据。然后将此sql语句copy到VB代码中，生成新的结果集，并赋给rpt文件新的数据源。以此保证各字段的对应。
假定单据头信息存放于表Quotation中，单据体存放于表QuotationEntry中。单据头信息中需要显示字段客户名称FCustomer，单据编号FBillNo，单据日期FBillDate，制单人FBiller......；单据体需要显示的是商品明细，包括商品代码FNumber，商品款式FStyle，商品大小FSize，商品颜色FColor......两表关联字段FID。
于是，在rpt文件的command中添入sql语句”select a.*,b.* from Quotation a left join QuotationEntry b on a.FID=b.FID”。然后将需要的字段拉入报表当中。
在VB中，首先应用crystal reports 9 actionX designer disign and runtime library,并添加部件crystal report viewer control 9。
在FORM中添加刚才加入的部件。就可以调用并显示了。

public BillID as integer '传入的参数
Private Sub Command1_Click()
Dim capp As New CRAXDDRT.Application
Dim carp As New CRAXDDRT.Report
Dim conn As New Connection
Dim rs As New Recordset
Dim sql As String
conn.ConnectionString = "Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=AIS20041209121508;Data Source=127.0.0.1"
sql = "select a.*,b.* from Quotation a left join QuotationEntry b on a.FID=b.FID where a.FID="&BillID
With conn
.Open
rs.Open sql, conn, adOpenStatic, adLockBatchOptimistic
End With
Set carp = capp.OpenReport("E:\Code\Component\Client\Quotation.rpt")
carp.DiscardSavedData '清空以前数据
carp.Database.SetDataSource rs
CRViewer91.ReportSource = carp
CRViewer91.ViewReport
End Sub
也可以将写好的Quotation.rpt文件一起打包到VB当中，具体的办法是在VB工程的右键加载crystal report 9的设计器，选择打开以有的文件，打开E:\Code\Component\Client\Quotation.rpt，并加载到其中。以上的代码Set carp = capp.OpenReport("E:\Code\Component\Client\Quotation.rpt")就可以不要了，直接将carp替换为加载进来的控件名称。