| 2010/04/10(Sat) 08:49:35 編集(投稿者)
でめちゃんこんにちは
基本は確認です。
以下のようにワンステップづつ確認していくことが
上達するこつです。
手続き定義開始 フォーム::フォーム開始(長整数 &表番号)
確認 "フォーム開始"
表 "会計名.tbl"
代入 &編集年度=[編集年度]
確認 #str(&編集年度)
終了 表 編集対象表
&pメイン表番号=&表番号
if ( #処理条件名検索(3,"一般会計") >0 )
絞り込み 条件名="一般会計"
else
確認 "一般会計という条件は存在しません"
end
*グループ項目のあるフォームはフォーム開始時点でデータは
*絞り込まれています。絞り込み前にグループ解除し絞り込み
*後にグループ選択しないと絞り込んだ時点で#総件数が「0」
*になります。↓↓
絞り込み [本年度]{[本年度]=&編集年度},文字比較方法=自動
if ( #処理条件名検索(2,"元帳表示") >0 )
並べ替え 条件名="元帳表示"
else
確認 "元帳表示 という並び替え条件は存在しません"
end
手続き定義終了
|
