Hi,
Iam having some problem while displaying crystal report at vb runtime
here is my code
in the form level i declared
Dim ADOcnn As New ADODB.Connection
Private Const MAPSMACHINELIST = "rpMachineTest.rpt"
Private Sub cmdPreview_Click()
Me.MousePointer = vbHourglass
sReportName = Trim$(lstReportList.Text)
With CrptGUI
.Reset
If Len(.Connect) = 0 Then
.Connect = ADOcnn
.StoredProcParam(0) = cboParameters(1).ItemData(cboParameters(1).ListIndex)
.StoredProcParam(1) = cboParameters(2).ItemData(cboParameters(2).ListIndex)
.ReportFileName = MAPSMACHINELIST
.WindowState = crptMaximized
.Destination = crptToWindow
End If
End With
End Sub
Iam having some problem while displaying crystal report at vb runtime
here is my code
in the form level i declared
Dim ADOcnn As New ADODB.Connection
Private Const MAPSMACHINELIST = "rpMachineTest.rpt"
Private Sub cmdPreview_Click()
Me.MousePointer = vbHourglass
sReportName = Trim$(lstReportList.Text)
With CrptGUI
.Reset
If Len(.Connect) = 0 Then
.Connect = ADOcnn
.StoredProcParam(0) = cboParameters(1).ItemData(cboParameters(1).ListIndex)
.StoredProcParam(1) = cboParameters(2).ItemData(cboParameters(2).ListIndex)
.ReportFileName = MAPSMACHINELIST
.WindowState = crptMaximized
.Destination = crptToWindow
End If
End With
End Sub