LookupField 属性

返回 ListField 对象，该对象定义要在其上执行搜索的域。

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

示例

下列示例创建一个 fpFieldLookup 类型的新域，并显示新域的名称以及要搜索的域的名称。

Sub CreateLookup()
'Adds new Lookup field

    Dim objApp As FrontPage.Application
    Dim objLstFlds As listFields
    Dim objFldLookup As ListFieldLookup
    Dim ObjField As ListField
    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 & ". The field used for the " & _
           "lookup is " & objFldLookup.LookupField.Name & "."

End Sub