Crear Parametros dinamicamente en Crystal desde delphi
 

Buenos dias Compañeros tengo un pequeño problema cree un reporte el cual a veces necesito que filtre por tres campos y a veces por dos el detalle es como puede indicarle a crystal que cree en el reporte lso parametros la formula las borro y las vuelvo a genrar el problema es crear los parametros gracias por cualquioer ayuda.

Código Delphi [-]
  Crp_OcuRat.WindowState:=WsMaximized;
      Crp_OcuRat.Selection.Formula.Clear;
      if dbl_Age.KeyValue=Null then
      begin
         Crp_OcuRat.Selection.Formula.Add(' {reserve.sStaRes}=''PA'' and {reserve.dArrivaldate}>={?fecini} and {reserve.dArrivaldate}<={?fecend}');
         Crp_OcuRat.Paramfields[0].currentvalue:=FormatDateTime(' yyyy,mm,dd',Dtp_ArrDat.date);
         Crp_OcuRat.Paramfields[1].currentvalue:=FormatDateTime(' yyyy,mm,dd',dtp_deda.date);
      end
      else
      begin
         Crp_OcuRat.Selection.Formula.Add(' {reserve.sStaRes}=''PA'' and {reserve.dArrivaldate}>={?fecini} and {reserve.dArrivaldate}<={?fecend} and {sources.sSourceCode}={?agencie}');
         Crp_OcuRat.Paramfields[0].currentvalue:=FormatDateTime(' yyyy,mm,dd',Dtp_ArrDat.date);
         Crp_OcuRat.Paramfields[1].currentvalue:=FormatDateTime(' yyyy,mm,dd',dtp_deda.date);
         Crp_OcuRat.Paramfields[2].currentvalue:=dbl_age.KeyValue;
      end;
        Crp_OcuRat.Show;

Hola
Seguro me equivoco, pero:

Código Delphi [-]
Crp_OcuRat.WindowState:=WsMaximized;
      Crp_OcuRat.Selection.Formula.Clear;
      if dbl_Age.KeyValue=Null then
      begin
         Crp_OcuRat.Selection.Formula.Add('reserve.sStaRes =''PA'' and reserve.dArrivaldate >= :?fecini and reserve.dArrivaldate <= :?fecend');
         Crp_OcuRat.Paramfields[0].currentvalue:=FormatDateTime(' yyyy,mm,dd',Dtp_ArrDat.date);
         Crp_OcuRat.Paramfields[1].currentvalue:=FormatDateTime(' yyyy,mm,dd',dtp_deda.date);
      end
      else
      begin
         Crp_OcuRat.Selection.Formula.Add('reserve.sStaRes =''PA'' and reserve.dArrivaldate >= :?fecini and reserve.dArrivaldate <= :?fecend and sources.sSourceCode = :?agencie');
         Crp_OcuRat.Paramfields[0].currentvalue:=FormatDateTime(' yyyy,mm,dd',Dtp_ArrDat.date);
         Crp_OcuRat.Paramfields[1].currentvalue:=FormatDateTime(' yyyy,mm,dd',dtp_deda.date);
         Crp_OcuRat.Paramfields[2].currentvalue:=dbl_age.KeyValue;
      end;
        Crp_OcuRat.Show;

Desconozco por que el uso del signo de interrogarion en los parametros.:confused:, si el campo se llama asi, pues estará bien.:D
Me da la impresion de que usas Access, me equivoco?.
Saludos

Hola gracias caral por contestarme pero no para nada ni loco utilizaria access:eek: utilizo mssql2005 y pues ya encontre la solucion jeje la posteo

Código Delphi [-]
 Crp_OcuRat.Selection.Formula.Clear;
      if dbl_Age.KeyValue=Null then
      begin
         Crp_OcuRat.Selection.Formula.Add(' {reserve.sStaRes}=''PA'' and {reserve.dArrivaldate}>={?fecini} and {reserve.dArrivaldate}<={?fecend}');

      end
      else
      begin
         Crp_OcuRat.Selection.Formula.Add(' {reserve.sStaRes}=''PA'' and {reserve.dArrivaldate}>={?fecini} and {reserve.dArrivaldate}<={?fecend} and {sources.sSourceCode}='+''''+Dbl_Age.KeyValue+'''');
      end;
        Crp_OcuRat.Paramfields[0].currentvalue:=FormatDateTime(' yyyy,mm,dd',Dtp_ArrDat.date);
        Crp_OcuRat.Paramfields[1].currentvalue:=FormatDateTime(' yyyy,mm,dd',dtp_deda.date);
        Crp_OcuRat.Show;

:confused::confused::confused::confused::confused: