掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
CompositeReportで1つ目のレポートし出力されない (ID:44096)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ほとんど使ってる人はいらっしゃらないと思いますが… 以下のようなコードを書いて実行すると、repoContractP1しか出力されません。 色々と検索して、レポートを最初からCreateしたりして試してみたのですが、 結果は同じです。 何か原因として考えられる事はないでしょうか？ procedure TdialogPrintContract.OKButtonClick(Sender: TObject); begin repoContractP1 := TrepoContractP1.Create(Self); repoContractP2 := TrepoContractP2.Create(Self); try repoContractP1のQueryをオープンするプロシジャ; repoContractP2のQueryをオープンするプロシジャ; ContractQRCompositeReport.Preview; finally repoContractP1.Free; repoContractP2.Free; end; { ===== Close This Dialog. ===== } ModalResult := mrOk; end; procedure TdialogPrintContract.ContractQRCompositeReportAddReports( Sender: TObject); begin with ContractQRCompositeReport do begin Reports.Clear; Reports.Add(repoContractP1); Reports.Add(repoContractP2); end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.