RemoveChoice 方法

从当前域删除指定选项。

expression.RemoveChoice(Index)

expression 必选。返回“应用于”列表中的对象之一的表达式。

Index 必选。Long 类型。代表选项名称或该选项在数组中的位置。

示例

下列示例从活动站点第一个列表中的 NewChoiceField 域删除第一个选项。

Sub RemoveChoice()
'Removes first choice from array

    Dim objApp As FrontPage.Application
    Dim objListFields As listFields
    Dim objListField As ListFieldChoice

    Set objApp = FrontPage.Application
    Set objListFields = objApp.ActiveWeb.Lists.Item(0).Fields
    Set objListField = objListFields.Item("NewChoiceField")
    'Remove first choice in list
    objListField.RemoveChoice Index:=0

End Sub