全部显示

Currency 属性

返回或设置 FpCurrencyFieldFormat 枚举常数，该常数用于确定货币域内所用的货币类型。可读写。

expression  必选。返回 ListFieldCurrency 对象的表达式。

说明

此域的默认值由用户个人设置确定。

示例

下列示例创建一个 ListFieldCurrency 类型的新域，并将默认货币设置更改为显示加拿大元。

Sub CreateCurrencyField()
'Add new Currency field

    Dim objApp As FrontPage.Application
    Dim objLstFlds As ListFields
    Dim objFldChoice As ListFieldCurrency
    Dim strName As String

    Set objApp = FrontPage.Application
    Set objLstFlds = objApp.ActiveWeb.Lists.Item(0).Fields
    strName = "NewCurrencyField"
    'Add new Field of type fpFieldCurrency to list
    objLstFlds.Add Name:=strName, Description:="New Choice value Field", _
                   Fieldtype:=fpFieldCurrency, Required:=True
    Set objFldChoice = objLstFlds.Item("NewCurrencyField")
    'Change currency type to Canadian
    objFldChoice.Currency = fpCurrencyFieldCanada
    MsgBox "A new field named " & strName & " was added to the list " & _
           objApp.ActiveWeb.Lists.Item(0).Name & "."

End Sub