FrontPage VBA教程:LookupField属性

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

expression.LookupField

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

VBA示例

下列示例创建一个 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

上页:FrontPage VBA教程:location属性 下页:FrontPage VBA教程:MaximumValue属性

FrontPage VBA教程:LookupField属性

FrontPage VBA教程:MaximumValue属性 FrontPage VBA教程:MaxLength属性
FrontPage VBA教程:MetaTag属性 FrontPage VBA教程:mimeType 类型
FrontPage VBA教程:MinimumValue属性 FrontPage VBA教程:MonthsShown属性
FrontPage VBA教程:mseMode属性 FrontPage VBA教程:Name属性
FrontPage VBA教程:nameProp属性 FrontPage VBA教程:NavigationNode属性
FrontPage VBA教程:NewForm属性 FrontPage VBA教程:NewPageorWeb属性
FrontPage VBA教程:Next属性 FrontPage VBA教程:NumberOfLines属性
FrontPage VBA教程:OlderFile属性 FrontPage VBA教程:onafterupdate属性
FrontPage VBA教程:onbeforeupdate属性 FrontPage VBA教程:onclick属性
FrontPage VBA教程:ondblclick属性 FrontPage VBA教程:ondragstart属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号