【水晶报表】创建报表 續

 六、动态改变数据源的代码

 
 

  
  
  
  Dim dsdataSet As New
  
   DataSet() Dim oRpt As New rptClient() '已建立的报表rptClient
 
 

    请读者自行填充数据集dsdataSet

 
 

  
  
  
  '
  
  使用“报表引擎”对象模型将填充的数据集,传递给报表 
  
   
  
  oRpt.SetDataSource(dsdataSet.Tables(
  
  0
  
  )) 
  
  '
  
   将带有数据的报表对象绑定到 Windows 窗体查看器，rptVew（CrystalReportViewer控件）
  
   
  
  rptVew.ReportSource 
  
  =
  
   oRpt
 
 

    注意 FillDataSet 方法可连接到指定的数据库，提取数据，然后断开数据库连接。如果您希望将数据库中的多个表添加到报表中，请使用 SQL JOIN 语句将这些表联接在一起；然后在 FillDataSet 方法中指定一个结果表

    七、创建主从报表

    在报表中，有许多报表是主从表结构，比如订单与订单商品明细，订单是一个表中的一条记录，而分录是另一个表中的多条记录，两个表通过一个字段关联起来，这种报表可利用其分组功能实现，

    1. 新建一个工程
    2. 往FORM1中添加一个CrystalReportViewer控件
    3. 在服务噐资源管理器中连接到SQL SERVER 2000上的Northwind数据库
    4. 添加一个数据集Dataset1,将服务器资源管理器中的Orders和 Order Details加入到数据集中。
    5. 添加一个水晶报表，使用报表专家，在项目数据中选择“ADO.NET数据集”，插入表Orders和 Order Details，“链接”中是关联字段的链接，在“字段”中选择要显示的主表和明细表的字段，组中选择分组依据为Orders表OrdersID字段，总计，图表，选择（可进行筛选），样式（可设置报表标题），可自行设置。设置完后，点击完成。
    6. 在报表设计器中调整需要显示的字段的位置、宽度等。
    7. 在窗口中添加代码。

 
 

  
  
  
  Private
  
   
  
  Sub
  
   Form1_Load(
  
  ByVal
  
   sender 
  
  As
  
   System.Object, 
  
  ByVal
  
   e 
  
  As
  
   System.EventArgs) 
  
  Handles
  
   
  
  MyBase
  
  .Load 
  
  Dim
  
   oRpt 
  
  As
  
   
  
  New
  
   CrystalReport1() 
  
  Dim
  
   dsdataSet 
  
  As
  
   
  
  New
  
   Dataset1() 
  
  Dim
  
   CN 
  
  As
  
   
  
  New
  
   Data.SqlClient.SqlConnection(
  
  "
  
  data source=PMSERVER;initial catalog=Northwind;user id=sa;password=sa
  
  "
  
  ) CN.Open() 
  
  Dim
  
   daOrders 
  
  As
  
   
  
  New
  
   Data.SqlClient.SqlDataAdapter(
  
  "
  
  select * from orders
  
  "
  
  , CN) daOrders.Fill(dsdataSet, 
  
  "
  
  orders
  
  "
  
  ) 
  
  Dim
  
   daDetails 
  
  As
  
   
  
  New
  
   Data.SqlClient.SqlDataAdapter(
  
  "
  
  select * from [Order Details]
  
  "
  
  , CN) daDetails.Fill(dsdataSet, 
  
  "
  
  Order Details
  
  "
  
  ) 
  
  '
  
  使用“报表引擎”对象模型将填充的数据集,传递给报表 
  
   
  
  oRpt.SetDataSource(dsdataSet) CrystalReportViewer1.ReportSource 
  
  =
  
   oRpt 
  
  End Sub
  
   
 
 

    8、运行程序

    代码如下：

 
 

  
  
  
  Dim
  
   GetTextObject 
  
  As
  
   TextObject 
  
  '
  
   按名称获取 ReportObject，将其转换为 TextObject，并返回此对象。 
  
   
  
  GetTextObject 
  
  =
  
   orpt.ReportDefinition.ReportObjects.Item(
  
  "
  
  text13
  
  "
  
  ) GetTextObject.Text 
  
  =
  
   
  
  "
  
  XXXX系统
  
  "
  
   
 
 

    总结：水晶报表具有非常强大的功能，还可进行导出WORD、EXCEL、RTF等文件，还可生成复杂、漂亮图表，是进行WEB和WINDOWS报表开发的利器。