function test(var CDS : TClientDataSet) : boolean;
begin
  server function
  get cds..
end;dbdataset := cds;
with fastreport
begin
  LoadFromFile();
  PrepareReport;
  PreviewOptions.MDIChild := True;
  PreviewOptions.Modal := False;
  ShowPreparedReport;
end
报表中使用了钻取功能
执行后报表正常显示.钻取功能出错.提示"未连接至数据库"本地进行测试
with adoquery do
begin
  sql.add('select ....table');
end
dbdataset := adoquery;
with fastreport
begin
  LoadFromFile();
  PrepareReport;
  PreviewOptions.MDIChild := True;
  PreviewOptions.Modal := False;
  ShowPreparedReport;
end
一切正常.不知道是什么原因.