Page History

...

動的なツリー・ビューを使用する場合は、ツリー・ビューの ManageChildren プロパティを True に設定します。
例の動作を見るには、このコードをフォーム・コンポーネントにコピーします。

FUNCTION　　　FUNCTION options(*DIRECT)
BEGIN　　　BEGIN_COM role(*EXTENDS #PRIM_FORM) HEIGHT(405) LEFT(129) TOP(131) WIDTH(377)
DEFINE　　　DEFINE_COM class(#PRIM_TRVW) name(#TRVW_1) DISPLAYPOSITION(1) HEIGHT(345) LEFT(24) PARENT(#COM_OWNER) TABPOSITION(1) TOP(8) WIDTH(321)
DEFINE　　　DEFINE_COM class(#PRIM_TVCL) name(#TVCL_1) KEYPOSITION(1) LEVEL(1) PARENT(#TRVW_1) SOURCE(#DEPTMENT) VISIBLE(False)
DEFINE　　　DEFINE_COM class(#PRIM_TVCL) name(#TVCL_3) KEYPOSITION(1) LEVEL(2) PARENT(#TRVW_1) SOURCE(#SECTION) VISIBLE(False)
DEFINE　　　DEFINE_COM class(#PRIM_TVCL) name(#TVCL_2) DISPLAYPOSITION(1) IMAGE(#VI_DEPTCL) IMAGEEXPANDED(#VI_DEPTOP) LEVEL(1) PARENT(#TRVW_1) SOURCE(#DEPTDESC)
DEFINE　　　DEFINE_COM class(#PRIM_TVCL) name(#TVCL_4) DISPLAYPOSITION(1) IMAGE(#VI_SECTCL) IMAGEEXPANDED(#VI_SECTOP) LEVEL(2) PARENT(#TRVW_1) SOURCE(#SECDESC)
DEFINE　　　DEFINE_COM class(#PRIM_TVCL) name(#TVCL_5) KEYPOSITION(1) LEVEL(3) PARENT(#TRVW_1) SOURCE(#EMPNO) VISIBLE(False)
DEFINE　　　DEFINE_COM class(#PRIM_TVCL) name(#TVCL_6) DISPLAYPOSITION(1) LEVEL(3) PARENT(#TRVW_1) SOURCE(#SURNAME)
EVTROUTINE　　　EVTROUTINE handling(#TRVW_1.Initialize) options(*NOCLEARMESSAGES *NOCLEARERRORS)
SELECT　　　SELECT fields(#DEPTMENT #DEPTDESC) from_file(DEPTAB)
ADD　　　ADD_ENTRY to_list(#TRVW_1)
ENDSELECT　　　ENDSELECT
ENDROUTINE　　　ENDROUTINE
EVTROUTINE　　　EVTROUTINE handling(#TRVW_1.ItemExpanding)
CHANGE　　　CHANGE field(#STD_NUM) to('#TRVW_1.CURRENTITEM.LEVEL')
CASE　　　CASE of_field(#STD_NUM)
WHEN　　　WHEN value_is('= 1')
SELECT　　　SELECT fields(#SECTION #SECDESC) from_file(SECTAB) with_key(#DEPTMENT)
ADD　　　ADD_ENTRY to_list(#TRVW_1)
ENDSELECT　　　ENDSELECT
WHEN　　　WHEN value_is('= 2')
SELECT　　　SELECT fields(#EMPNO #SURNAME) from_file(PSLMST1) with_key(#DEPTMENT #SECTION)
ADD　　　ADD_ENTRY to_list(#TRVW_1)
ENDSELECT　　　ENDSELECT
ENDCASE　　　ENDCASE
ENDROUTINE　　　ENDROUTINE
END　　　END_COM