Application.MakeFieldEnterprise 方法 (Project)

将一个本地自定义域作为企业自定义域添加至 Project Server。

语法

expression。 MakeFieldEnterprise( _FieldID_, _FieldName_, _LookupTableName_ )

expression：表示 Application 对象的变量。

参数

名称	必需/可选	数据类型	说明
FieldID	必需	Long	本地自定义域标识号。 使用 FieldNameToFieldConstant 方法来获取 FieldID 参数。
FieldName	必需	String	要创建的企业自定义域的名称。
LookupTableName	可选	String	要创建的查找表的名称。 默认值为空字符串 ("")。

返回值

Boolean

说明

当 MakeFieldEnterprise 方法成功完成时，Project 会显示一个对话框，其中包含消息“字段已成功添加到 Project Server。 若要查看和使用项目中的企业字段，需要退出并重启Project Professional。”

MakeFieldEnterprise 方法对应于 自定义域对话框中的 将域添加到企业命令。 该方法是仅适用于项目的专业人员。 Project Professional 必须连接至 Project Server。

示例

若要使用以下示例，请创建一个本地自定义域，如名为 LocalWithLUT2Enterprise 的任务文本自定义域。 为指定了值的自定义域添加一个查阅表格。

Sub Local2Enterprise() 
 Dim localId As Long 
 localId = FieldNameToFieldConstant(FieldName:="LocalWithLUT2Enterprise") 
 
 MakeFieldEnterprise FieldID:=localId, FieldName:="NewTaskTextFromLocal", LookupTableName:="NewTaskTextLUTFromLocal" 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。