Свойство LookupTableEntry.FullName (Project)
Возвращает полное имя указанного уровня и родительского уровней LookupTableEntry для кода структуры, в комплекте со строкой разделителя между уровнями. Только для чтения, String.
Синтаксис
expression. Fullname
Выражение Переменная, представляющая объект LookupTableEntry .
Пример
Пример макроса CreateLocationOutlineCode задает три уровня LookupTableEntry для пользовательского кода структуры задачи с именем Location. После выполнения макроса CreateLocationOutlineCode в окне Интерпретация редактора Visual Basic (VBE) введите следующую строку.
Print ActiveProject.OutlineCodes.Item(1).LookupTable.Item(4).FullName
WA.KING.RED
Ниже приведен макрос CreateLocationOutlineCode .
Sub CreateLocationOutlineCode()
Dim objOutlineCode As OutlineCode
On Error GoTo ErrorHandler
Set objOutlineCode = ActiveProject.OutlineCodes.Add( _
pjCustomTaskOutlineCode1, "Location")
objOutlineCode.OnlyLookUpTableCodes = True
DefineLocationCodeMask objOutlineCode.CodeMask
EditLocationLookupTable objOutlineCode.LookupTable
End
ErrorHandler:
MsgBox "CreateLocationOutlineCode(): Error Number: "
& Err.Number & _
vbCrLf & " Error Description: " & Err.Description
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 и обратная связь.
Обратная связь
https://aka.ms/ContentUserFeedback.
Ожидается в ближайшее время: в течение 2024 года мы постепенно откажемся от GitHub Issues как механизма обратной связи для контента и заменим его новой системой обратной связи. Дополнительные сведения см. в разделеОтправить и просмотреть отзыв по