Dim oConnectInfo As New ConnectionInfo
Dim oCRTableInfos As New TableLogOnInfos
Dim oCRTableInfo As New TableLogOnInfo
Dim oTables As Tables
Dim oTable As Table
cryRpt = New ReportDocument
cryRpt.Load(xPath & "\\Rpt\\App_Payment.rpt")
Dim oText As String
oText = "\\R2"
With oConnectInfo
.ServerName = "" & oCompany.Server & ""
.UserID = "" & oCompany.DbUserName & ""
.Password = "p@ssw0rd"
.DatabaseName = oCompany.CompanyDB
.Type = ConnectionInfoType.SQL
End With
oTables = cryRpt.Database.Tables
For Each oTable In oTables
\'oCRTableInfo = oTable.LogOnInfo
oCRTableInfo.ConnectionInfo = oConnectInfo
oTable.ApplyLogOnInfo(oCRTableInfo)
Next
Dim oParamDefs As ParameterFieldDefinitions
Dim oParamDef As ParameterFieldDefinition
Dim oParamVal As New ParameterValues
Dim oParamDisVal As ParameterDiscreteValue
oParamDisVal = Nothing
oParamDisVal = New ParameterDiscreteValue
oParamDisVal.Value = frmAmortSched.Items.Item("txt_DocNum").Specific.Value
oParamDefs = cryRpt.DataDefinition.ParameterFields
oParamDef = oParamDefs.Item("DocNum")
oParamVal = oParamDef.CurrentValues
oParamVal.Clear()
oParamVal.Add(oParamDisVal)
oParamDef.ApplyCurrentValues(oParamVal)
CrystalReportViewer1.EnableRefresh = True
CrystalReportViewer1.ReportSource = cryRpt
CrystalReportViewer1.Refresh()