StrPath = Application.startuppath strpath = strpath & "/rpt/HURRYRETURN.RPT" MyReportDoc.Load (StrPath)
'Program parameters transmitted to Crystal Reports 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) 'program source specified in the report 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
