VS.Net中向报表模板中传递参数与公式

本文接：《直连数据库拉模式的水晶报表编程实现之极简教程 》

编辑上文之模板，增加一个参数myid，两个公式。公式xx1中是对参数myid进行操作。公式xx2内容为空，在程序中编程控制此公式。

 

全部文件代码段如下：

 

Imports  CrystalDecisions.Shared
Imports  CrystalDecisions.CrystalReports.Engine
Imports  CrystalDecisions.Web

Partial   Class  _Default
     Inherits  System.Web.UI.Page
     Private  myReport  As  ReportDocument

     Private   Sub  ConfigureCrystalReports()
         Dim  myConnectionInfo  As  ConnectionInfo  =   New  ConnectionInfo()
        myConnectionInfo.DatabaseName  =   " xxx "
        myConnectionInfo.UserID  =   " xxx "
        myConnectionInfo.Password  =   " xxx "
        myConnectionInfo.ServerName  =   " xxx "

        myReport  =   New  ReportDocument()
         Dim  reportPath  As   String   =  Server.MapPath( " crystalreport1.rpt " )


         ' 加载报表文件
        myReport.Load(reportPath)

         ' -----------------------------------------------
         ' 传递公式字段
         ' 注意：公式字段在将rpt传递给crviewr控件前操作！
         ' 需要特别注意的是：如果你的公式返回的是一个文本，必须用单引号刮起来
        myReport.DataDefinition.FormulaFields("xx2").Text = "'这是一个公式'"
         ' 传递参数
        myReport.ParameterFields("myId").CurrentValues.AddValue(1001)
         ' -----------------------------------------------

        CrystalReportViewer1.ReportSource  =  myReport

         ' '-----------------------------------------------
         ' '传递报表参数的另一种写法，将参数传递给viewer
         ' Dim paramFields = New ParameterFields()
         ' Dim paramField = New ParameterField()
         ' Dim discreteVal = New ParameterDiscreteValue()

         ' '定位参数
         ' paramField.ParameterFieldName = "myId"
         ' '定义参数值
         ' discreteVal.Value = 101
         ' '赋值
         ' paramField.CurrentValues.Add(discreteVal)
         ' paramFields.Add(paramField)
         ' CrystalReportViewer1.ParameterFieldInfo = paramFields
         ' '-----------------------------------------------

        SetDBLogonForReport(myConnectionInfo, myReport)

     End Sub

     Private   Sub  SetDBLogonForReport( ByVal  myConnectionInfo  As  ConnectionInfo,  ByVal  myReportDocument  As  ReportDocument)
         Dim  myTables  As  Tables  =  myReportDocument.Database.Tables
         For   Each  myTable  As  CrystalDecisions.CrystalReports.Engine.Table  In  myTables
             Dim  myTableLogonInfo  As  TableLogOnInfo  =  myTable.LogOnInfo
            myTableLogonInfo.ConnectionInfo  =  myConnectionInfo
            myTable.ApplyLogOnInfo(myTableLogonInfo)
         Next
     End Sub

     Protected   Sub  Page_Init( ByVal  sender  As   Object ,  ByVal  e  As  System.EventArgs)  Handles   Me .Init
        ConfigureCrystalReports()
     End Sub
End Class

 

 效果如下：