You are viewing an old version of this page. View the current version.

Compare with Current View Page History

Version 1 Next »

[ |../../index.htm#lansa/l4wdev06_1135.htm]
現在地:

2.21.2.2 ピックリストでのエントリーの作成

プロパティ・シートでピックリストの構造を設定しました。次は、関連するピックリストで#OPTIONSAデータ･クラス(英数字オブション)のエントリーを作成します。
1.      基本のデータ・クラス#PRIM_ALPHをエントリーのデータ・クラスの基礎とします。
DEFINE_COM class(#PRIM_ALPH) name(#OPTIONSA)
2.      プロパティ・シートのInitializeイベントで、ピックリストを追加し、アイテムを作成します。エントリーを作成し、ピックリストを関連付け、プロパティ・シートにエントリーを追加します。
EXECUTE subroutine(ADD_PLIST)
EXECUTE subroutine(ADD_PITEM) with_parms('A' 'option A')
EXECUTE subroutine(ADD_PITEM) with_parms('B' 'option B')
EXECUTE subroutine(ADD_PITEM) with_parms('C' 'option C')
CHANGE field(#PROPERTY) to('''Alpha Options''')

  • associate the picklist with the #OPTIONSA data class
    SET com(#optionsa) picklist(#PL_COL<#Cur_Plist>)
  • assign the picklist to the second column
    CHANGE field(#VALUE) to('#OPTIONSA.TEXT')
  • add the entry
    ADD_ENTRY to_list(#PROP_1)
  • assign the data class to the entry in the property sheet
    SET com(#prop_1.CurrentItem) dataclass(#optionsa)
    これでAlpha Optionsエントリーとその関連するピックリストの定義が完成しました。
    [ |../../index.htm#lansa/l4wdev06_1135.htm]
  • No labels