七、用程序改变报表中text的文本
  
  代码如下：
  
   Dim GetTextObject As TextObject
  
   ' 按名称获取 ReportObject，将其转换为 TextObject，并返回此对象。
  
   GetTextObject = orpt.ReportDefinition.ReportObjects.Item("text13")
  
   GetTextObject.Text = "XXXX系统"
  
  
  
  总结：水晶报表具有非常强大的功能，还可进行导出WORD、EXCEL、RTF等文件，还可生成复杂、漂亮图表，是进行WEB和WINDOWS报表开发的利器。
  
  
  
  (此文部分资料来自MSDN)
  
  Author:李洪根
  
  E-MAIL:lihonggen0@163.com
  
  本人有如下设想：
  1、通过连接查询获得SQL数据库相关数据；
  2、置放在DataSet里；
  3、调用水晶报表(线形或柱形模板)，生成报表；
  4、输出生成EXCEL文档。
  
  请教各位大侠，如何实现以上思路？(如有范例就更好了)
  非常感谢！
  ---------------------------------------------------------------
  
  1.在你的工程中添加新項目DataSet,連結數據庫,將需要的數據表或預存程序
  拖入此DataSet中,編譯DataSet
  2.使用Vs.net自帶的Crystal Report,以DataSet為數據源建立報表
  3.在程序中將數據推入此報表中
  4.Crystal Report 有輸出為Excel的選項,通過程序也可以實現
  
   Dim conn As SqlConnection
   Dim da As SqlDataAdapter
   Dim strSQL As String
  
   conn = New SqlConnection()
   conn.ConnectionString = "User ID=sa; PWD=1234;Data Source=xxxx; Initial Catalog =xxxxx"
   conn.Open()
  
   strSQL = "Select * from TableName"
   da = New SqlDataAdapter(strSQL, conn)
   Dim ds As New DataSet()
   da.Fill(ds, "TableName")
  
   Dim RptDoc As New ReportName()
   RptDoc.SetDataSource(ds)
   ' 給RptDoc 指定數據,
   CrystalView1.ReportSource = RptDoc '給CrystalView指定數據
   CrystalView1.DataBind()
   conn.Close()
  5.如果需要顯示的為多表關聯的字段,最好以存儲過程建立DataSet
  
  ---------------------------------------------------------------
  
  请参考如下代码:
   string strconn=连接串;
   SqlConnection myconn=new SqlConnection(strconn);
   string strcmd=@"select语句";
  
   SqlCommand mycmd=new SqlCommand(strcmd,myconn);
   SqlDataAdapter myda=new SqlDataAdapter(strcmd,myconn);
   DataSet myds=new DataSet();
   myconn.Open();
   myda.Fill(myds,"报表名");
  
  
   报表名 myrpt =new 报表名();
   myrpt.SetDataSource(myds);
   this.CrystalReportViewer1.ReportSource=myrpt;
  
  导出到EXCEL:
  myrpt.ExportOptions.ExportDestinationType=CrystalDecisions.Shared.ExportDestinationType.DiskFile;
  myrpt.ExportOptions.ExportFormatType=CrystalDecisions.Shared.ExportFormatType.Excel;
  CrystalDecisions.Shared.DiskFileDestinationOptions opt=new CrystalDecisions.Shared.DiskFileDestinationOptions();
  opt.DiskFileName=@"文件名";
  myrpt.ExportOptions.DestinationOptions =opt;
  myrpt.Export();
  
  水晶报表9的中文帮助 下载：
  http://www.ourfly.com/download/download.aspx
  http://www.enwell.net/soft/
  http://www.fast8.com/news.asp 
    
   
  Crystal Reports for Visual Studio .NET