How to pass parameters to main report and 2 subreports? - Level Extreme

Plateforme Level Extreme

Abonnement

Profil corporatif

Produits & Services

Support

Légal

English

How to pass parameters to main report and 2 subreports?

Message

De

30/10/2002 15:34:37

Jose Marcenaro
Tercer Planeta
Buenos Aires, Argentine

À

30/10/2002 14:18:37

Steve Kramer
Kramer & Kramer Design
Clearwater, Floride, États-Unis

Information générale

Forum:

Visual FoxPro

Catégorie:

Crystal Reports

Titre:

Re: How to pass parameters to main report and 2 subreports?

Divers

Thread ID:

00716962

Message ID:

00717091

Vues:

22

With the OCX, you should do something like this:

IF THISFORM.cborpt.Value = "127"
	THISFORM.olecontrol1.ReportFileName = ;
		\reports\scaagcystats.rpt"
	THISFORM.olecontrol1.ParameterFields(0) = ;
		"s_date;Date("+s_yr+","+s_mo+","+s_day+");TRUE"
	THISFORM.olecontrol1.ParameterFields(1) = ;
		"e_date;Date("+e_yr+","+e_mo+","+e_day+");TRUE"
	THISFORM.olecontrol1.ParameterFields(2) = ;
		"agency;"+agency+";TRUE"

	THISFORM.olecontrol1.SubreportToChange = "Sub1"  && alias of subreport 
	THISFORM.olecontrol1.ParameterFields(0) = ;
		"s_date;Date("+s_yr+","+s_mo+","+s_day+");TRUE"
	THISFORM.olecontrol1.ParameterFields(1) = ;
		"e_date;Date("+e_yr+","+e_mo+","+e_day+");TRUE"
	THISFORM.olecontrol1.ParameterFields(2) = ;
		"agency;"+agency+";TRUE"
	THISFORM.olecontrol1.SubreportToChange = ""  && back to main

	THISFORM.olecontrol1.SubreportToChange = "Sub2"  && alias of subreport
	THISFORM.olecontrol1.ParameterFields(0) = ;
		"s_date;Date("+s_yr+","+s_mo+","+s_day+");TRUE"
	THISFORM.olecontrol1.ParameterFields(1) = ;
		"e_date;Date("+e_yr+","+e_mo+","+e_day+");TRUE"
	THISFORM.olecontrol1.ParameterFields(2) = ;
		"agency;"+agency+";TRUE"
	THISFORM.olecontrol1.SubreportToChange = ""  && back to main

	testout = THISFORM.olecontrol1.PrintReport

Regards,

------------------
Jose Marcenaro
Tercer Planeta - Argentina
http://www.tercerplaneta.com

Click here to load this message in the networking platform