Page History

[ Image Removed |../../index.htm#lansa/l4wdev06_0460.htm]
現在地:

...

Wiki Markupリスト内の選択されたアイテムを更新するには、UPD_ENTRYコマンドを使用します。

この例では、社員を選択し、\[昇給\]プッシュ・ボタンを有効にする必要があります。賃金の増加は、選択した社員にのみ適用されます。   !worddavaf485e25f57cd86bb5b0fc63f3f1b1cc.png|height=32,width=32! 例の動作を見るには、このコードをフォーム・コンポーネントにコピーします。

Image Added

例の動作を見るには、このコードをフォーム・コンポーネントにコピーします。

Function Options(*DIRECT)

...

Begin_Com Role(*EXTENDS #PRIM_FORM) Height(346) Left(245) Top(136) Width(623)

...

Define_Com Class(#PRIM_LTVW) Name(#EMPLIST) Displayposition(1) Fullrowselect(True) Height(285) Left(8) Parent(#COM_OWNER) Selectionstyle(Single) Tabposition(1) Top(28) Width(505)

...

Define_Com Class(#PRIM_LVCL) Name(#LVCL_1) Displayposition(1) Parent(#EMPLIST) Source(#EMPNO) Width(24)

...

Define_Com Class(#PRIM_LVCL) Name(#LVCL_2) Displayposition(2) Parent(#EMPLIST) Source(#SURNAME) Width(25)

...

Define_Com Class(#PRIM_LVCL) Name(#LVCL_3) Displayposition(3) Parent(#EMPLIST) Source(#GIVENAME) Width(33)

...

Define_Com Class(#PRIM_LVCL) Name(#LVCL_4) Displayposition(4) Parent(#EMPLIST) Source(#SALARY) Width(18)

...

Define_Com Class(#PRIM_PHBN) Name(#PB_RAISE) Caption('Give Raise') Displayposition(2) Enabled(False) Left(528) Parent(#COM_OWNER) Tabposition(2) Top(272)

...

Evtroutine Handling(#com_owner.Initialize)

...

Select Fields(#EMPLIST) From_File(PSLMST)

...

Add_Entry To_List(#EMPLIST)

...

Endselect

...

Endroutine

...

Evtroutine Handling(#PB_RAISE.Click)

...

Change Field(#SALARY) To('#SALARY * 1.10')

...

Upd_Entry In_List(#EMPLIST)

...

Endroutine

...

Evtroutine Handling(#EMPLIST.ItemGotSelection)

...

Set Com(#PB_RAISE) Enabled(TRUE)

...

Endroutine

...

End_Com

...