
362 CHAPTER 5
%FORM_DEFAULT_PRIMARY
'Get all the properties.
Set pFormProperties = pDocObject.GetReturnProperties()
Dim intNumRows As Integer
Set intNumRows = pFormProperties.RowCount()
Dim pProperties As New pFormProperties
Dim strFormName As String
Dim intCounter As Integer, strCounter As String
for (intCounter = 1 To intNumRows)
Set pProperties = pFormProperties.GetCurrentPropertyValue()
If (pProperties.GetPropertyValue( _
"%FORM_DEFAULT_PRIMARY") = "Y") Then
Set strFormName = pProperties.GetPropertyValue(“%FORM_NAME”)
Set strCounter = CStr(intCounter)
MsgBox(strFormName & “ is the default form. It is at “ _
& “row number “ & StrCounter & “.”)
End If
Next intCounter
Related Items
See the PCDPropertyList object.
See the
GetPropertyValue method.
Komentáře k této Příručce