水晶報表的制作

 

' 1、先制作一個空窗體，在上面放上水晶報表的控件：CtystalReportviewer控件,窗體的ID為ReportForm。

' 2、制作一個程序去查詢數據庫并返回數據，然後把數據傳給ReportForm上的CtystalReportviewer控件;

' 具體代碼如下：

' 先在程序里引用 （VB的寫法）

Imports  CrystalDecisions.CrystalReports.Engine
Imports  CrystalDecisions.Shared

          Dim  RptDoc  As   New  ReportDocument    ’實例化一個ReportDocument  對象
         Dim  RptProcRptForm  As   New  ReportForm   ’實例化要顯示數據的窗體對象
         Dim  ParaValue  As   New  ParameterValues     ’實例化一個ParameterValues對象
         Dim  ParaDisValue  As   New  ParameterDiscreteValue     ’實例化一個ParameterDiscreteValue 對象

 

       RptDoc.Load( * .rpt文件的存入路徑 * .rpt的文件名)   ’如：D： SRPT RGM010.rpt
        RptDoc.Database.Tables.Item( 0 ).SetDataSource(DataSet里的表)   如：dstData.Tables( 0 )
        RptDoc.SetDataSource(dstData)       ‘查詢數據庫後返回的dstData數據庫，屬於DataSet 型

 

' 指定報表參數 - lblCMPYName
        ParaDisValue.Value  =  sysCMPYName
        ParaValue.Add(ParaDisValue)
        RptDoc.DataDefinition.ParameterFields( " lblCMPYName " ).ApplyCurrentValues(ParaValue)
         ' 指定報表參數 - lblRemark
        ParaDisValue.Value  =  strRemark
        ParaValue.Add(ParaDisValue)
        RptDoc.DataDefinition.ParameterFields( " lblRemark " ).ApplyCurrentValues(ParaValue)
         ' 指定報表參數 - lblSystemUserName
        ParaDisValue.Value  =   " ( "   &  sysUserID  &   " ) "   &  sysUserName
        ParaValue.Add(ParaDisValue)
        RptDoc.DataDefinition.ParameterFields( " lblSystemUserName " ).ApplyCurrentValues(ParaValue)
         ' 指定報表參數 - lblReportNo
        ParaDisValue.Value  =  strReportName
        ParaValue.Add(ParaDisValue)
        RptDoc.DataDefinition.ParameterFields( " lblReportNo " ).ApplyCurrentValues(ParaValue)
         ' 指定報表參數 - lblPrintDate
        ParaDisValue.Value  =  strPrintDate
        ParaValue.Add(ParaDisValue)
        RptDoc.DataDefinition.ParameterFields( " lblPrintDate " ).ApplyCurrentValues(ParaValue)
         ' 指定報表參數 - lblDataDate
        ParaDisValue.Value  =  strDataDate
        ParaValue.Add(ParaDisValue)
        RptDoc.DataDefinition.ParameterFields( " lblDataDate " ).ApplyCurrentValues(ParaValue)

 

RptProcRptForm.CReportViewer.ReportSource  =  RptDoc    ' 把RptDoc   對象傳給CReportViewer控件的

ReportSource屬性

 RptProcRptForm.ShowDialog()       ' 顯示報表