网站地图
【www.gdgbn.com--班主任工作总结】
环境：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