Método Task.GetField (Project)

Devuelve el valor del campo personalizado de tarea personalizado.

Sintaxis

expresión. GetField( _FieldID_ )

expresión Variable que representa un objeto Task .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
FieldID	Obligatorio	Long	Para un campo personalizado local, puede ser una de las constantes de PjField para campos personalizados de tareas. Para un campo personalizado de empresa, use el método FieldNameToFieldConstant para obtener la FieldID.

Valor devuelto

Cadena

Observaciones

Si el campo personalizado de tarea es una duración estimada, el valor devuelto también incluye el carácter que indica un valor estimado.

Puede tener acceso a los campos personalizados de proyecto a través de la propiedad ProjectSummaryTask.

Ejemplo

En el ejemplo siguiente, se utiliza el método SetField y el método GetField junto con los métodos FieldNameToFieldConstant y FieldConstantToFieldName:

1. Para emplear este ejemplo, use Project Web App para crear un campo personalizado de texto del proyecto llamado TestEntProjText.

2. Reinicie Project Professional con un perfil de Project Server para que incluya el nuevo campo personalizado.

3. Use el cuadro de diálogo Información del proyecto para crear un proyecto con un valor para el campo TextoDeProyDeEmprDePrueba.

4. La macro TestEnterpriseProjectCF usa el método FieldNameToFieldConstant para buscar el número del projectField, por ejemplo, 190873618.

5. La macro muestra el valor numérico y de texto en un cuadro de mensaje con el método GetField.

6. La macro obtiene el nombre del campo con el método FieldConstantToFieldName, establece un nuevo valor mediante el método SetField y, a continuación, muestra el nombre de campo y el nuevo valor en otro cuadro de mensaje.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.