ItemExpanding イベント
ItemExpandingはツリー・ビューのイベントで、次のレベルのエントリーを表示します。
ItemExpandingイベントはツリー・ビューが展開されて次のレベルのエントリーが表示される時に起動します。 通常はこのレベルのデータをロードする際に使用されます。
次の例ではLevelプロパティと共にこのイベントをどのように使用するかを示しています。
DEFINE FIELD(#LEVEL) TYPE(*DEC) LENGTH(7) DECIMALS(0) DESC('Tree View Item level')
EVTROUTINE HANDLING( #TRVW_1.ItemExpanding )
change #level #Trvw_1.CurrentItem.Level
case #level
when '= 1'
select (#section #secdesc) from_file(sectab) with_key(#deptment)
add_entry #trvw_1
endselect
when '= 2'
select (#empno #surname #givename) from_file(pslmst1) with_key(#deptment #section)
add_entry #trvw_1
endselect
endcase
ENDROUTINE