LCField の SetCurrency メソッド

このメソッドは、フィールドの値を指定された LCCurrency 値に設定します。フィールドのデータ型が Currency でない場合は、指定した値はフィールドのデータ型に変換されます。変換に失敗すると、LCFAIL_INVALID_CONVERT エラーが発生します。

このオペレーションによって、フィールドのデータ型が Currency に変更されることはありません。データ型は変更されませんが、値が変更されます。

定義位置

LCField

構文

Call thisField.SetCurrency (index, srcCurrency)

パラメータ

パラメータ	説明
index	Long、1 以上。割り当てる値のインデックスです。
srcCurrency	LCCurrency。フィールドのデータ値に割り当てる値です。

例

Option Public
Uselsx "*lsxlc"  
Sub Initialize
  Dim field As New LCField (LCTYPE_TEXT)
  Dim number As New LCCurrency
  number.value = 1234567890.1234
  Call field.SetCurrency (1, number)
  Print "The field's value is " & field.text(0)
End Sub

出力例

The field's value is 1234567890.1234.