>How can i pass one or more parameters to a Crystal Report Through VFP7.0?

To all,

This is the solution I use succefully for about four years now:

WITH THIS.Report.ParameterFields
	FOR nT= 1 TO .Count
		cName=STRTRAN(STRTRAN(STRTRAN(.Item(nT).Name,"{",""),"}",""),"?","")

		IF TYPE(cName) # "U"
			cType=TYPE(cName)
			nType=0
			DO CASE 
				CASE cType="C"
					nType=12

				CASE cType="D"
					nType=10
					
				CASE cType="N"
					nType=7
				
				CASE cType="M"
					nType=14
					
				CASE cType="L"
					nType=9
			ENDCASE
			xValue=IIF(cType="C",LEFT(EVAL(cName),250), EVAL(cName))
			IF nType = 0
				.item(nT).SetCurrentValue(xValue)
			ELSE
				.item(nT).SetCurrentValue(xValue, nType)
			ENDIF
		ENDIF			
	ENDFOR
ENDWITH