Page History

...

EVTROUTINE HANDLING(#MDetails.Click)
  SET COM(#dforms<#empno>) formowner(#com_owner)
  invoke #dforms<#empno>.showform
  set com(#dforms<#empno>) employee(#empno)
  invoke #dforms<#empno>.GetInfo
ENDROUTINE  

すべてのフォーム・インスタンスの参照

...

EVTROUTINE HANDLING(#dforms<>.OKPressed)
   execute getlist
ENDROUTINE 

OKPressedイベントが詳細フォームのいずれかから通知されると、GETLISTサブルーチンが実行されます。このコードから見ると、すべてのインスタンスが参照されるとコレクションのキー値は指定されません。インスタンスは#dforms<>です。 

...

EVTROUTINE HANDLING(#COM_OWNER.Closing)
   invoke #dforms<>.CloseForm
ENDROUTINE

同じ結果になるこれ以外の方法は、FRMDETAILのFormStyleをOwnedに設定することです。この設定は、フォームが他のフォームのメンバー・フォームの場合、オーナー・フォームが閉じられたときに閉じられることを指定します。

「2.14.7 マルチフォーム・アプリケーション例のソース・コード

...

」も参照してください。