ListFieldLookup 对象

ListFieldLookup ListField

包含关于 Lookup 域的信息。ListFieldLookup 对象允许您根据指定的域搜索给定站点中的信息。

使用 ListFieldLookup 对象

使用 ListFields.Item(index) 可以返回单个 ListFieldLookup 对象，其中 index 是 fpFieldLookup 类型的域的名称或位置序号。

使用 ListFields.Add 方法可以将 ListFieldLookup 类型的域添加到 ListFields 集合中。

下列示例将名为 NewFileLookupField 的 fpFieldLookup 类型的新域添加到 ListFields 集合中。

Sub CreateLookup()
'Add new Lookup field

    Dim objApp As FrontPage.Application
    Dim objLstFlds As ListFields
    Dim objFldLookup As ListFieldLookup
    Dim strName As String

    Set objApp = FrontPage.Application
    Set objLstFlds = objApp.ActiveWeb.Lists.Item(0).Fields
    strName = "NewFileLookupField"
    'Add new Field of type fpFieldLookup to list
    objLstFlds.Add Name:=strName, Description:="New Lookup Field", _
                   Fieldtype:=fpFieldLookup
    Set objFldLookup = objLstFlds.Item("NewFileLookupField")
    MsgBox "A new field named " & strName & " was added to the list " & _
           objApp.ActiveWeb.Lists.Item(0).Name & "."

End Sub