| お世話になります、桐のイベントはまだまだ初心者です。
先日からいろいろ調べて、四苦八苦しているのですが、前に進みません。
#ファイル検索の使い方、+".TBL" の使い方が理解できていません。
イベントで
1, フォームのtext1 が空白なら、空白のメッセージを表示
2, フォームのtext1 に入力されたファイル(&月1.tbl)がなければ
ファイル(&月1.tbl)が存在しないメッセージを表示
3, フォームのtext1 に入力されたファイル(&月1.tbl)にデータがなければ、
ファイル(&月1.tbl)にデータが存在しないメッセージを表示
4, フォームのtext1 に入力されたファイルにデータががあれば、
aaa.tblに、
textに入力されたファイル(&月1.tbl)を読み込み
ということが、したいのですが、ご教授お願いします。
このフォームには、編集対照表はありません。
変数宣言 文字列{&月1,&検索ファイル名1}
proc 月読み込み1()
if(&月1="")
確認 "月が未入力です！"
else
call 月読み込み()
end
end
proc 月読み込み2()
&検索ファイル名1=#ファイル検索(&月1+".TBL" , 1 )
if(&検索ファイル名1<>"")
表 "&月1+".TBL" "
ケース開始
ケース(&選択件数 <=0)
確認 "データはありませんでした！"
ケース その他
表 "aaa.tbl"
解除 *
ジャンプ 行番号=終端
読み込み 表 "&月1+".TBL", *
確認 "月度の読み込みが終わりました"
ケース終了
else
確認 "&月1+".TBL" は、存在しませんでした！"
end
終了 表
end
|
