Dim cryRpt As New ReportDocument cryRpt.Load(Application.StartupPath & "\Reports\Brooker Reports\rptfwisesrpt.rpt") Dim crParameterFieldDefinitions As ParameterFieldDefinitions Dim crParameterFieldDefinition As ParameterFieldDefinition Dim crParameterValues As New ParameterValues Dim crParameterDiscreteValue As New ParameterDiscreteValue crParameterDiscreteValue.Value = frmbsrc.cmbbroker.Text crParameterFieldDefinitions = cryRpt.DataDefinition.ParameterFields() crParameterFieldDefinition = _ crParameterFieldDefinitions.Item("b_name") 20: crParameterValues = crParameterFieldDefinition.CurrentValues 21: 22: crParameterValues.Clear() 23: crParameterValues.Add(crParameterDiscreteValue) 24: 25: crParameterFieldDefinition.ApplyCurrentValues(crParameterValues) 27: Dim tbCurrent As CrystalDecisions.CrystalReports.Engine.Table 28: Dim tliCurrent As CrystalDecisions.Shared.TableLogOnInfo 29: 30: For Each tbCurrent In cryRpt.Database.Tables 31: tliCurrent = tbCurrent.LogOnInfo 32: With tliCurrent.ConnectionInfo 33: .ServerName = ".\SQLExpress" 34: .UserID = "sa" 35: .Password = "information31" 36: .DatabaseName = "PMS" 37: End With 38: tbCurrent.ApplyLogOnInfo(tliCurrent) 39: Next tbCurrent 40: 41: CrystalReportViewer1.ReportSource = cryRpt 42: CrystalReportViewer1.Refresh()
Go trough the link
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)