环境：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替换为加载进来的控件名称。
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
