CopyField

前のレコードのフィールドのデータを新しいレコードの別のフィールドに転記する
目的
　ビデオテープの内容を記録するためにテープ毎のマスター(キーとしてテープID)、テープのIDにリンクした詳細テーブルがあります。詳細テーブルにはテープIDの他にスタートタイム、エンドタイム、内容説明のフィールドがあります。
　詳細データの入力時、前のレコードのエンドタイムを保存して次のレコードのスタートタイムにコピーをさせたい。(同じ値だから。)
　データ入力はテープマスターをメインにしてテーブルツールで詳細を表示しています。

---

データの保存用変数をフォームで定義する。
;|BeginMethod|#フォームデータ1|var|
var
    EndT    time
endvar

;|EndMethod|#フォームデータ1|var|
エンドタイム用フィールドからフォーカスが移るときにその内容を保存用変数に代入する。
;|BeginMethod|#ページ2.MYCAMVIDEO.#レコード10.END|removeFocus|
method removeFocus(var eventInfo Event)
    Endt=self.value
endMethod

;|EndMethod|#ページ2.MYCAMVIDEO.#レコード10.END|removeFocus|
スタートタイム用フィールドにフォーカスが移動して、そのフィールドに値が無いときに保存用変数からフィールドに代入する。
;|BeginMethod|#ページ2.MYCAMVIDEO.#レコード10.START|arrive|
method arrive(var eventInfo MoveEvent)
    if isblank(self.value) then
    self.value=EndT
   endif
endMethod

;|EndMethod|#ページ2.MYCAMVIDEO.#レコード10.START|arrive|

---

＜＜戻る