Ｐａｇｅ 423 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼レポートのページ集計 よう 03/10/31(金) 13:23 ┗Re:レポートのページ集計 roku_neko 03/11/6(木) 17:05 ─────────────────────────────────────── ■題名 ： レポートのページ集計 ■名前 ： よう ■日付 ： 03/10/31(金) 13:23 -------------------------------------------------------------------------
| 助けてくださいm(__)m １ページ６行の伝票を印刷する為に、レポートのペーシ毎の集計をしたいです。この質問箱で過去にあったものを利用させていただき（ありがとうございます）、以下の記述をした所、次ページの１行目の明細も集計されてしまい、全ペーシ７行の集計になってしまいました。 集計用の変数curSumを用意 Private curSum As Currency ページヘッダーのFormatイベントで初期化 curSum = 0 ' 明細行のFormatイベントで値を加算 curSum = curSum + CCur(txtKingaku.Value) 純ページフッターでページ内合計を表示するテキストボックスの コントロールソースに関数を設定 =curSetSum() 関数は変数の内容を返すだけとする。 Private Function curSetSum curSetSum = curSum End Function そこで、助言頂き、詳細の印刷時に IF FormatCount = 1 Then curSum = curSum + CCur(txtKingaku.Value) EndIF を記述した所、１ペーシ目の集計は出来たのですが、2ペーシ目以降は、1行目の明細がたされず、1行のみのペーシは、0になってしまいます。どうしたらいいのでしょうか？初心者で本当にわかりません(>_<)。助けてください。 |
| ようさんは改ページの処理をどのように行っていますでしょうか？ >集計用の変数curSumを用意 >Private curSum As Currency > >ページヘッダーのFormatイベントで初期化 >curSum = 0 > >' 明細行のFormatイベントで値を加算 >curSum = curSum + CCur(txtKingaku.Value) で大丈夫な気がするのですが・・・ |