How to pass formula(0) from VB6 to a subreport of crystal report

[143Aroul]

Hi,

i am calling a report from VB6 like the below
============================================================
strSQL = ""
strSQL = "{Tour_Detail.RefCode} = " & "'" & txtRefCode.Text & "'"
strSQL = strSQL & &quot; AND {Tour_Detail.Status} <> &quot; & &quot;'&quot; & &quot;DE&quot; & &quot;'&quot;

crpt1.Connect = &quot;DSN=Tour;UserId=;Password=;&quot;

crpt1.SelectionFormula = strSQL
crpt1.ProgressDialog = False
crpt1.Formulas(1) = &quot;flag = &quot; & &quot;'&quot; & &quot;Y&quot; & &quot;'&quot;
crpt1.ReportFileName = App.Path & &quot;\rptAgentCost.rpt&quot;
crpt1.PrintFileType = crptWinWord
crpt1.Destination = crptToFile
crpt1.PrintFileName = &quot;C:\Temp\&quot; & Trim(txtRefCode.Text) & &quot;.doc&quot;
crpt1.PrintReport
========================================================
the rptagentcost.rpt contain a subreport. In the subreport , i created a formula &quot;flag&quot;. when i run the program the &quot;flag&quot; value is not displaying in the subreport.

anyone can u give a solution to me?

 

[SonOfEmidec1100]

Havent used sub reports for a while but try

crpt1.SubreportToChange = &quot;subreportname&quot;
crpt1.Formulas(1) = &quot;flag = &quot; & &quot;'&quot; & &quot;Y&quot; & &quot;'&quot;
crpt1.SubreportToChange = &quot;&quot;


Hope this helps.

 

[143Aroul]

thanks for your suggestion, but it does not work. But i changed the logic .
Instead of using formula, i used Parameter.