在程序中向水晶报表传参数，以及在程序中指定报表源

最新推荐文章于 2021-04-12 23:17:22 发布

zyizyizyi

最新推荐文章于 2021-04-12 23:17:22 发布

阅读量663

点赞数

分类专栏：水晶报表文章标签：报表 datagrid table each

本文链接：https://blog.csdn.net/zyizyizyi/article/details/221795

版权

水晶报表专栏收录该内容

3 篇文章 0 订阅

订阅专栏

            strPath = Application.StartupPath
            strPath = strPath & "/rpt/hurryReturn.rpt"
            myReportDoc.Load(strPath)

        '程序中向水晶报表传参数
           Dim firstParameterValues As New ParameterValues
            Dim firstParameterValue As ParameterDiscreteValue
            firstParameterValue = New ParameterDiscreteValue(DataGrid1.Item(DataGrid1.CurrentRowIndex, 0))

firstParameterValues.Add(firstParameterValue)

            Dim secondParameterValues As New ParameterValues
            Dim secondParameterValue As ParameterDiscreteValue
            secondParameterValue = New ParameterDiscreteValue
            secondParameterValue.Value = "aaa" 'Convert.ToString(DataGrid1.Item(DataGrid1.CurrentRowIndex, 1))
            secondParameterValues.Add(secondParameterValue)

            myReportDoc.DataDefinition.ParameterFields("@zdbh").ApplyCurrentValues(firstParameterValues)
            myReportDoc.DataDefinition.ParameterFields("@jyr").ApplyCurrentValues(secondParameterValues)
'程序中指定报表源
        Dim myTableLogonInfo As New TableLogOnInfo
        Dim myTable As Table
        For Each myTable In myReport.Database.Tables
            myTableLogonInfo = myTable.LogOnInfo
            With myTableLogonInfo.ConnectionInfo
                .ServerName = MainServerName
                .DatabaseName = MainDatabase
                .UserID = MainUser
                .Password = MainPass
            End With
            myTable.ApplyLogOnInfo(myTableLogonInfo)
        Next
        CrystalReportViewer1.ReportSource = myReport