Поделиться через

Свойство OutlineCode.OnlyLookUpTableCodes (Project)

  • Статья

Значение true, если можно использовать только записи, перечисленные в локальной таблице подстановки кода структуры. Для чтения и записи, Boolean.

Синтаксис

выражение. OnlyLookUpTableCodes

Выражение Переменная, представляющая объект OutlineCode .

Замечания

Для корпоративных текстовых полей с таблицами подстановок значение OnlyLookUpTableCodes всегда является истинным и не поддерживает запись.

Пример

В следующем примере добавляется настраиваемый код структуры для хранения расположения ресурсов и настраивается код структуры таким образом, чтобы с ресурсом можно было связать только значения, указанные в таблице подстановки.

Примечание.

Свойство OnlyLookUpTableCodes можно задать только после того, как таблица подстановки содержит записи. Если вы попытаетесь задать onlyLookUpTableCodes перед созданием записей таблицы подстановки, результатом будет ошибка времени выполнения 7 "Нехватка памяти".

Sub CreateLocationOutlineCode()
    Dim objOutlineCode As OutlineCode 
 
    Set objOutlineCode = ActiveProject.OutlineCodes.Add( _
        pjCustomResourceOutlineCode1, "Location") 
 
    DefineLocationCodeMask objOutlineCode.CodeMask 
    EditLocationLookupTable objOutlineCode.LookupTable 
 
    objOutlineCode.OnlyLookUpTableCodes = 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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.