[RESOLVED] crystal 6 to crystal 9

[asm]

Hi

In crystal report6 we can call formula in report from vb6 like this
' using crystal report control (component)

Me.CrystalReport1.Formulas(0) = "compname = '" & CompanyName & "'"

But now I want to convert cr6 report to cr9, Now problem is
how can i show the formula in report.
Please help me for this problem...

Private Sub CrView9()
    Dim crApp As CRAXDRT.Application
    Dim crReport As CRAXDRT.report
    Dim crRs As ADODB.Recordset
    Dim crSQL As String
    Call Form_Resize1
    CRViewer.DisplayBorder = False
    CRViewer.EnableGroupTree = False
    CRViewer.DisplayTabs = False
    CRViewer.EnableRefreshButton = False
    CRViewer.EnableExportButton = True
    crSQL = "SELECT * FROM category"
    Set crRs = New ADODB.Recordset
    Set crRs = ConnectAcct.Execute(crSQL)
    Set crApp = New CRAXDRT.Application
    Set crReport = crApp.OpenReport(App.path & "\categ.rpt", 1)
    crReport.Database.SetDataSource crRs, 3, 1
    CRViewer.ReportSource = crReport
    CRViewer.ViewReport
    'Pause Report While Loading
    Do While CRViewer.IsBusy
        DoEvents
    Loop
    CRViewer.Zoom 94
    Set crApp = Nothing
    Set crReport = Nothing
    crRs.Close
    Set crRs = Nothing
End Sub
 
 
 
Private Sub CmdPreview_Click()
 
    Call CrView9        ' CRYSTAL 9 CALLING PROCEDURE
 
'    CRYSTAL 6 REPORT CALLING PROCEDURE     
'    Dim strRepName As String
'    Dim SqlString As String
'    strRepName = "categ.rpt"
'    SqlString = "select * from category"
'    Me.CrystalReport1.ReportFileName = strRepName
'    Me.CrystalReport1.SQLQuery = SqlString
'    Me.CrystalReport1.Destination = crptToWindow
'    Me.CrystalReport1.Connect = "dsn= " & DsnName & ""
'    Me.CrystalReport1.Formulas(0) = "compname = '" & CompanyName & "'"
'    Me.CrystalReport1.Action = 1
End Sub
 
Private Sub Form_Resize1()
    CRViewer.Top = 0
    CRViewer.Left = 0
    CRViewer.Height = ScaleHeight
    CRViewer.Width = ScaleWidth
End Sub
 
Private Sub Form_Load()
    Call ConnectData
    Call CompDetail
End Sub

thanks

asm

[pnish]

Try this

Set crReport = crApp.OpenReport(App.Path & "\categ.rpt", 1)
    crReport.FormulaFields.GetItemByName("compname").Text = "'" & CompanyName & "'"