QuickReportのDataSet (ID:22150)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

度々ですがよろしくおねがいします。

QuickReportで複数のマスタ作成画面からリスト物のレポートを動的に切り替えて出力したいと考えています。

QuickReport上に
TableとTitleBandを乗せておき
このTableをQuickReportのDataSetに設定
Table.TableNameは空白のままで…
各作業フォームから
procedure TForm***.ButtonClick;
begin
  //前処理
  QuickReport.Bands.HasDetail := True;
  QuickReport.DataSet.Close;
  QuickReport.Table.TableName := 'Mastar***.DB';
  with TQRDBText.Create(QuickReport) do
  begin
    Parent := QuickReport.Bands.DetailBand;
    Name := 'Code';
    Dataset := QuickReport.Table;
    DataField := 'Code';
    Size.Top  := 2;
    Size.Left := 10;
  end;
  with TQRDBText.Create(QuickReport) do
  begin
    Parent := QuickReport.Bands.DetailBand;
    Name := 'Name';
    Dataset := QuickReport.Table;
    DataField := 'Name';
    Size.Top  := 2;
    Size.Left := 25;
  end;

//印刷
  QuickReport.Table.Active := True;
  QuickReport.Preview;
  //後処理
  QuickReport.Table.Active := False;
  QuickReport.Bands.HasDetail := False;
end;

大体こんな感じです。
レポートは初期生成のままです。

１回目の表示は上手く表示されるんですが、２回目別のデータベースを参照すると文字化けしたり、きちんとフィールドを参照できなくなったりします。
うまく、リセットする方法はないんでしょうか？
レポート自体を動的生成するしかないですか？

←解決時は質問者本人がここをチェックしてください。

戻る