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

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