クリスタルレポートでページ計、総合計を出力するには？

ぷ 2003-08-09 22:05:50 No: 78956

はじめまして。

表題の件ですが、以下のような用件の帳票の作り方がわからなくて困っています。
＜帳票の仕様＞
・全社員の給与振込額の一覧を表示する。
・各ページのフッタ部に振込額のページ計を出力する。
・最終ページのフッタ部に全明細の振込額計を出力する。

具体的にはこんなイメージの帳票が欲しいです。
【1ページ目】
-------------------------------------------------------------
鈴木    ○○銀行  ○○支店  1,000
佐藤    △△銀行  △△支店  2,000
田中    ××銀行  ××支店  3,000
                     小計  6,000
-------------------------------------------------------------
【2ページ目】
-------------------------------------------------------------
山田    ○○銀行  ○○支店  4,000
太田    △△銀行  △△支店  5,000
                     小計  9,000
                   総合計 15,000
-------------------------------------------------------------

WhilePrintingRecords関数や、グローバル変数などを使っていろいろ
試して見たのですがどうもうまくいきません。
使用しているクリスタルレポートは、VS.NETに付属していた、
「Crystal Reports for Visual Studio .NET」というやつです。

長くなってしまい申し訳ありませんが、ご教授をお願い致します。

ムース 2004-09-01 20:59:00 No: 78957

レポートヘッダに式フィールドAllTotalを非表示で設定してください。
  フィールドオブジェクトの編集で以下の記述を行います。(総合計クリア)
  WhilePrintingRecords:
  currencyVar AllTotal := 0;

  ページヘッダに式フィールドPageTotalを非表示で設定してください。
  フィールドオブジェクトの編集で以下の記述を行います。(ページ計クリア)
  WhilePrintingRecords:
  currencyVar PageTotal := 0;

  詳細に式フィールドAllTotal1を非表示で設定してください。
  フィールドオブジェクトの編集で以下の記述を行います。(総合計加算)
  WhilePrintingRecords:
  currencyVar AllTotal1;
  AllTotal1 := AllTotal1 + FurikomiKingaku

  詳細に式フィールドPageTotal1を非表示で設定してください。
  フィールドオブジェクトの編集で以下の記述を行います。(ページ計加算)
  WhilePrintingRecords:
  currencyVar PageTotal1;
  PageTotal1 := PageTotal1 + FurikomiKingaku

  ページフッタに式フィールドPageTotal2を設定してください。
  これが、ページ計で出力されるフィールドです。
  フィールドオブジェクトの編集で以下の記述を行います。
  WhilePrintingRecords:
  currencyVar PageTotal1;
  PageTotal1;

  レポートフッタに式フィールドAllTotal12を設定してください。
  これが、総合計で出力されるフィールドです。
  フィールドオブジェクトの編集で以下の記述を行います。
  WhilePrintingRecords:
  currencyVar AllTotal1;
  AllTotal1;

以上でページ計、総合計が出力される筈です。
試してください。

ムース 2004-09-04 03:24:04 No: 78958

ごめん。間違った。結果的に嘘を教えてしまったね！！
前回と同様にしてもう一度書き直しておきますね！！

  詳細に式フィールドAllTotal1を非表示で設定してください。
  フィールドオブジェクトの編集で以下の記述を行います。(総合計加算)
  WhilePrintingRecords:
  currencyVar AllTotal;
  AllTotal := AllTotal + FurikomiKingaku

  詳細に式フィールドPageTotal1を非表示で設定してください。
  フィールドオブジェクトの編集で以下の記述を行います。(ページ計加算)
  WhilePrintingRecords:
  currencyVar PageTotal;
  PageTotal := PageTotal + FurikomiKingaku

  ページフッタに式フィールドPageTotal2を設定してください。
  これが、ページ計で出力されるフィールドです。
  フィールドオブジェクトの編集で以下の記述を行います。
  WhilePrintingRecords:
  currencyVar PageTotal;
  PageTotal;

  レポートフッタに式フィールドAllTotal12を設定してください。
  これが、総合計で出力されるフィールドです。
  フィールドオブジェクトの編集で以下の記述を行います。
  WhilePrintingRecords:
  currencyVar AllTotal;
  AllTotal;

以上でページ計、総合計が出力される筈です。
試してください。