住房新建网站在线crm系统

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

编辑上文之模板，增加一个参数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

 

 效果如下：