VB6 - Crystal Report 9.0 parameter querying
VB6 - Crystal Report 9.0 parameter querying
Rate VB6 - Crystal Report 9.0 parameter querying
(2(2 Vote))
Dim rep As CRAXDRT.Report
Dim cry As New CRAXDRT.Application
Dim sql As String
Set rep = cry.OpenReport(App.Path + "\report\pod.rpt")
sql = "SELECT * FROM delivery WHERE deliverynum='" & rptstring & "'"
rep.SQLQueryString = sql
rep.DiscardSavedData
crv1.ReportSource = rep
crv1.RefreshEx True
crv1.ViewReport
crv1.Zoom 100
End Sub
VB6 - Crystal Report 9.0 parameter querying Comments
No comments yet — be the first to post one!
Post a Comment