应用于 BasicList、DocumentLibrary、List 和 Survey 对象的 Type 属性。
返回 FpListType 常数,该常数代表当前列表的类型。只读。
FpListType 可以是下列这些 FpListType 常数之一。 |
fpListTypeBasicList |
fpListTypeDocumentLibrary |
fpListTypeSurvey |
expression.Type
expression 必选。返回上述对象之一的表达式。
返回 FpFieldType 常数,该常数代表当前域的类型。只读。
FpFieldType 可以是下列这些 FpFieldType 常数之一。 |
fpFieldChoice |
fpFieldComputed |
fpFieldCounter |
fpFieldCurrency |
fpFieldDateTime |
fpFieldFile |
fpFieldInteger |
fpFieldLookup |
fpFieldMultiLine |
fpFieldNumber |
fpFieldSingleLine |
fpFieldTrueFalse |
fpFieldURL |
fpFieldUser |
expression.Type
expression 必选。返回上述对象之一的表达式。
将该属性应用于 BasicList、DocumentLibrary、List 和 Survey 对象。
下列示例显示活动站点中所有列表的名称以及与其相关联的类型名称。如果活动站点不包含列表,则向用户显示一条消息。
Sub ViewListTypes()
'Displays the name of the list and
'its associated type
Dim lstWebList As List
Dim strType As String
If Not ActiveWeb.Lists Is Nothing Then
'Cycle through lists
For Each lstWebList In ActiveWeb.Lists
'add types to string
If strType = "" Then
strType = lstWebList.Name & " - " & _
lstWebList.Type & vbCr
Else
strType = strType & lstWebList.Name & " - " & _
lstWebList.Type & vbCr
End If
Next
'Display types of all lists in the web
MsgBox "The list types in the current web are:" _
& vbCr & strType
Else
'Otherwise display message to user
MsgBox "The current web contains no lists."
End If
End Sub
下列示例显示 Lists 集合第一个列表中所有域的名称以及与其相关联的类型名称。如果活动站点不包含列表,则向用户显示一条消息。
Sub Fieldtype()
'Displays the field types of the current list
Dim objApp As FrontPage.Application
Dim objField As ListField
Dim strType As String
Set objApp = FrontPage.Application
If Not ActiveWeb.Lists Is Nothing Then
For Each objField In objApp.ActiveWeb.Lists.Item(0).Fields
If strType = "" Then
strType = objField.Name & " - " & _
objField.Type & vbCr
Else
strType = strType & objField.Name & " - " & _
objField.Type & vbCr
End If
Next objField
MsgBox "The names of the fields in this list and their types are: " & _
vbCr & strType
Else
'Otherwise display message to user
MsgBox "The current web contains no lists."
End If
End Sub