Task.SetField-Methode (Project)

Artikel
04/07/2023

Legt den Wert des angegebenen benutzerdefinierten Vorgangsfelds fest.

Syntax

Ausdruck. SetField( _FieldID_, _Value_ )

Ausdruck Eine Variable, die ein Task-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
FieldID	Erforderlich	Long	Für ein lokales benutzerdefiniertes Feld kann eine der PjField-Konstanten für benutzerdefinierte Aufgabenfelder sein. Verwenden Sie für ein benutzerdefiniertes Enterprise-Feld die FieldNameToFieldConstant-Methode , um die FieldID abzurufen.
Wert	Erforderlich	String	Der Wert des Felds.

HinwBemerkungeneise

Sie können auf benutzerdefinierte Projektfelder mithilfe der ProjectSummaryTask-Eigenschaft zugreifen.

Beispiel

Im folgenden Beispiel werden die Methoden SetField und GetField zusammen mit den Methoden FieldNameToFieldConstant und FieldConstantToFieldName verwendet.

Um das Beispiel verwenden zu können, verwenden Sie Project Web App, um ein benutzerdefiniertes "Enterprise-Projekt Text"-Feld namens TestEntProjText zu erstellen.
Starten Sie Project Professional mit einem Project Server-Profil neu, sodass das neue benutzerdefinierte Feld enthalten ist.
Erstellen Sie ein Projekt mit einem Wert für das Feld TestEntProjText, indem Sie das Dialogfeld Projektinformationen verwenden.
Das Makro TestEnterpriseProjectCF verwendet die FieldNameToFieldConstant -Methode zum Ermitteln ProjectField Anzahl 190873618.
Das Makro zeigt den Zahlen- und Textwert in einem Meldungsfeld mit der GetField -Methode.
Das Makro ruft den Feldnamen mithilfe der FieldConstantToFieldName -Methode, einen neuen Wert mithilfe der SetField -Methode festgelegt und zeigt dann die Feldnamen und einen neuen Wert in einem weiteren Meldungsfeld.

Sub TestEnterpriseProjectCF() 
    Dim projectField As Long 
    Dim projectFieldName As String 
    Dim message As String 
 
    projectField = FieldNameToFieldConstant("TestEntProjText", pjProject) 
 
    ' Show the enterprise project field number and old value. 
    message = "Enterprise project field number: " & projectField & vbCrLf 
    MsgBox message & ActiveProject.ProjectSummaryTask.GetField(projectField) 
 
    ActiveProject.ProjectSummaryTask.SetField FieldID:=projectField, Value:="This is a new value." 
 
    ' For a demonstration, get the field name from the field number, and verify the new value. 
    projectFieldName = FieldConstantToFieldName(projectField) 
    message = "New value for field: " & projectFieldName & vbCrLf 
    MsgBox message & ActiveProject.ProjectSummaryTask.GetField(projectField) 
End Sub

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Share via