| 先のでも、定義画面からならエラーにならずに出来たけど これなら最初からエラー出ずに出来るんじゃない?
これでもダメなら、俺が質問の意味を理解して無い 酔っぱらててゴメン
-------------------------- 名札 メイン 変数 文字列{&フォーカス値},STR{&CoName},INT{&Start} *
手続き定義開始 フォーカス取得::フォーカス取得(文字列 &喪失オブジェクト名) &CoName = &this メソッド呼び出し &this.ソース値取得( &フォーカス値, 0 ) メソッド呼び出し @フォーム.変数変更() 手続き定義終了
手続き定義開始 フォーカス取得::フォーカス喪失(文字列 &取得オブジェクト名) &フォーカス値=#u メソッド呼び出し @フォーム.変数変更() 手続き定義終了
手続き定義開始 フォーム::レコード移動(長整数 &行番号,長整数 &総件数,長整数 &明細番号) if ( &Start=0 ) メソッド呼び出し &CoName.ソース値取得( &フォーカス値, 0 ) end &Start=0 手続き定義終了
手続き定義開始 フォーム::フォーム開始(長整数 &表番号) &Start=1
手続き定義終了
--------------------------- 概略、以上
編集禁止項目でレコード移動で出るのは、工夫してね 簡単だから
|