通过

OutlineCode.OnlyCompleteCodes Property

  • 项目
Project Developer Reference

True if only codes with values at all levels of the mask can be used. Read/write Boolean.

Syntax

expression.OnlyCompleteCodes

expression   A variable that represents an OutlineCode object.

Return Value
Boolean

Remarks

For enterprise text fields with a lookup table, OnlyCompleteCodes is always False and non-writeable.

Example

Using the OutlineCode Object

The following example adds a custom outline code to store the location of resources and configures the outline code such that only the full name of a code can be associated with a resource.

Bb213288.vs_note(en-us,office.12).gif  Note
The OnlyCompleteCodes property can be set only after the lookup table contains entries. If you try to set OnlyCompleteCodes before creating lookup table entries, the result is run-time error 7, "Out of memory."
Visual Basic for Applications 
  Sub CreateLocationOutlineCode()

Dim objOutlineCode As OutlineCode

Set objOutlineCode = ActiveProject.OutlineCodes.Add( _
    pjCustomResourceOutlineCode1, "Location")
   
DefineLocationCodeMask objOutlineCode.CodeMask
EditLocationLookupTable objOutlineCode.LookupTable

objOutlineCode.<strong class="bterm">OnlyCompleteCodes</strong> = True



End Sub


Sub DefineLocationCodeMask(objCodeMask As CodeMask)
objCodeMask.Add _
Sequence:=pjCustomOutlineCodeUppercaseLetters, _
Length:=2, Separator:="."


objCodeMask.Add _
Sequence:=pjCustomOutlineCodeUppercaseLetters, _
Separator:="."


objCodeMask.Add _
Sequence:=pjCustomOutlineCodeUppercaseLetters, _
Length:=3, Separator:="."
End Sub


Sub EditLocationLookupTable(objLookupTable As LookupTable)
Dim objStateEntry As LookupTableEntry
Dim objCountyEntry As LookupTableEntry
Dim objCityEntry As LookupTableEntry


Set objStateEntry = objLookupTable.AddChild("WA")
objStateEntry.Description = "Washington"

Set objCountyEntry = objLookupTable.AddChild("KING", _
    objStateEntry.UniqueID)
objCountyEntry.Description = "King County"

Set objCityEntry = objLookupTable.AddChild("SEA", _
    objCountyEntry.UniqueID)
objCityEntry.Description = "Seattle"

Set objCityEntry = objLookupTable.AddChild("RED", _
    objCountyEntry.UniqueID)
objCityEntry.Description = "Redmond"

Set objCityEntry = objLookupTable.AddChild("KIR", _
    objCountyEntry.UniqueID)
objCityEntry.Description = "Kirkland"    



End Sub

See Also