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