QuickReportのOnNeeｄDataについて (ID：5828)

名前

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

本文

こんにちは。

Delphi5、Windows2000の環境で開発をしています。
QuickReportでDBに繋げずに帳票を出力したいのですが
理想通りにいかず困っています。

DBに繋げずに出力するためにOnNeedDataを使用しています。
そこでキーが変わったときに改ページを行いたいのです。
改ページは上手くいくのですが
改ページ後のDetail1行目（2ページ目の1行目）に
前ページの最後の行のデータが出力されてしまいます。

OnNeedData部分のソースです。
FileNameが変わったら改ページをしたいのです。
-------------------------------------------------------------
DataCNT:データ件数カウント
Arr_PrintData:出力するデータ配列

if (DataCNT <= High(Arr_PrintData)) then begin
  if (FileName = Arr_PrintData[DataCNT, 0]) then begin
      QRL_Data1.Caption := Arr_PrintData[DataCNT, 1];
      QRL_Data2.Caption := Arr_PrintData[DataCNT, 3];
      QRL_Data3.Caption := Arr_PrintData[DataCNT, 4];
      QRL_Data4.Caption := Arr_PrintData[DataCNT, 5];
      QRL_Data5.Caption := Arr_PrintData[DataCNT, 6];

Inc(DataCNT);
  end else begin
      QuickRep1.NewColumn;
      FileName := Arr_PrintData[DataCNT, 0];
  end;
  MoreData := True;

end else begin
    MoreData := False;
end;
----------------------------------------------------------------

何が原因なのでしょうか？
アドバイスをお願いします。

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

戻る