0

使用此代码：

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

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

4

2 回答 2

0

这篇文章有点老了，所以也许你已经继续前进了，但是你计算过项目并确保 Application.ScreenUpdating = True 吗？

于 2014-02-06T19:40:14.447 回答
0

现在这绝对是一篇旧帖子，但找到答案仍然可能有用。

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

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

appProj.TableEditEx "Entry", True, , , , , "Work"
appProj.TableApply "Entry"

这对我来说可以。

于 2014-09-24T07:27:01.150 回答