changing dataset at runtime?

klint · February 2004

Can anyone tell me how to change the dataset on a report at runtime? When I execute the following, I get undefined symbols on the database fields in the report.

procedure runreport(sql:string; repname:string);
var
 Â  Â  frDS: TfrDBDataSet;
 Â  Â  fr : TfrReport;
 Â  Â  repCDS : TClientDataSet;
begin
 Â  Â  repCDS := initcds; // function to create and initialise with soap info
 Â  Â  repCDS.CommandText := sql;
 Â  Â  repCDS.open;

 Â  Â  frDS := TfrDBDataSet.create(repCDS);
 Â  Â  frDS.DataSet := repCDS;
 Â  Â  frDS.name := 'frDBDataSet1';

 Â  Â  fr := TfrReport.create(repCDS);
 Â  Â  fr.loadfromfile(repname);
 Â  Â  fr.Dataset := frDS;

 Â  Â  (* something here to setup the report for the dataset - find what dataset used 
 Â  Â  Â  Â  and replace*)

 Â  Â  fr.preparereport;
 Â  Â  fr.savepreparedreport(repname+'.frp');
end;

klint · February 2004

I found that by adding to fr.dictionary.fieldaliases I could get the undefined symbols to match up.

before the preparereport in my original message I added

fr.dictionary.fieldaliases.insert(0,'repcds');
fr.dictionary.fieldaliases.value[0] := 'originalname';

now all I have to figure out is what are the original dataset names used in the report
when designed.

klint.

changing dataset at runtime?

Comments

Leave a Comment