Question

使用此代码：

Sub CreateNewField()

Dim x As TableField
Dim Field As String

Field = "TestCustomField"

'Check if the Custom Field is already created
If (CustomFieldExists(Field) = True) Then
    MsgBox ("The Field Exists")
'If the Custom field doesn't exists
Else
    MsgBox ("Doesn't exist")
    CustomFieldRename FieldID:=pjTaskNumber1, NewName:=Field
    'Adding to the table
    Set x = ActiveProject.TaskTables(Application.ActiveProject.CurrentTable).TableFields.Add(pjTaskNumber1)

End If
'Calculate and adding graphical indicator to the Custom Field
CalculateCustomField (Field)
AddGraphicIndicator (Field)
End Sub

代码正确地修改了自定义字段“Number 1”并将其添加到表中，但在关闭Project并再次重新打开之前，它在甘特图中看起来不像一个列。是否有另一种方法可以在甘特图中显示自定义字段而无需关闭并重新打开Project 2007文件？

Answer 1

这篇文章有点旧了，所以也许你已经开始了，但是你计算了项目并确保Application.ScreenUpdating = True？

Answer 2

现在这绝对是一个老帖子，但是答案仍然有用。

我有同样的问题，我想将现有字段“工作”添加到“条目”表中。我设法添加它，但它没有显示在表中。

现在，要应用更改，我只需通过调用TableApply方法再次打开表：

appProj.TableEditEx“Entry”，True ,,,,,“工作”
appProj.TableApply“Entry”

它适用于我。

Project 2007添加自定义字段甘特图（未显示）

2 个答案: