'
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() ' 顯示報表
' 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() ' 顯示報表