4D Japan Knowledge Base

ポップアップ／ドロップダウンリストのデフォルト値をセットする容易な方法

ポップアップ／ドロップダウンリストがフィールドの値を表示するために使用されているとします。レコードが表示される時にポップアップの値を設定する簡単なトリックがあります。以下のコードを使用します。

If (Form Event = On Load)
pColor:=Abs(Find in array(pColor;[Table1]Color))
End if

このコードはポップアップを正確にフィールドの値に設定するか、まだ選択されていなければ一番目の要素をデフォルト値として設定します。もしFind in array関数が配列の中からフィールド値に対応する値を見つければ、その値が設定されます。関数が対応する値を見つけられなければ-1が返ります。Abs関数によって-1が1に変換されますので、結果としてポップアップには一番目の要素が選択されることになります。