| 広田さん サンプルをアップします。 フォームのボタンをクリックするとレポートをプレビューします。 いくつかやり方がありますが、今のレポートを出来るだけ変更しない単純な方法にしました。 やり方は、あらかじめレポートの集計オブジェクトのソースを配列変数にしておきます。転置集計表の各項目を項目集計して、&合計値を配列変数に代入します。これで各項目の件数を表示できます。
・レポートの集計オブジェクト &大計[1] 〜 &大計[9]
・フォームのコマンドボタン 機能名 機能パラメータリスト 手続き実行 "レポート()"
・イベント(kev) 名札 メイン var 数値{ &大計[10] } * 手続き定義開始 レポート() 転置集計 {[病棟]},[科],[氏名], \ 集計種別=件数,丸め=しない,見出し項目値並べ替え=する, \ 転置項目名並べ替え=昇順 書き出し 表 , "転置集計結果.tbl" , * 表 "転置集計結果" 編集表 "転置集計結果" for &秒=1,#項目数-1 &STR = #項目属性( &秒+1 , 1 ) コマンド "項目集計 ["+&STR+"]" &分 = #setq( &大計[&秒] , &合計値 ) end レポート印刷 "入院患者一覧.rpt" , プレビュー=する 手続き定義終了
アックン(=^・^=)
|