MS 项目 vba 从字段中获取数据

Question

我想从一个确切任务的字段中获取数据并放入另一个字段。

但问题是我想从中获取数据的字段可能是 table 中的每个可见字段。实际上fieldname会在userform中选择VB。

代码是这样的：（但它不起作用）

UserForm1.Show

Dim F as String

F = UserForm1.ComboBox1.Value              ''''F will be a FieldName

ActiveProject.Tasks.UniqueID(1).Text1 = ActiveProject.Tasks.UniqueID(1).F

找不到字段 F，例如 "Task Name" 或任何字段。我该如何解决这个问题？

谢谢

Answer 1

您需要结合使用 FieldNameToFieldConstant 和 GetField:

F = UserForm1.ComboBox1.Value
task = ActiveProject.Tasks.UniqueID(1)
task.Text1 = task.GetField(FieldNameToFieldConstant(F))

MS 项目 vba 从字段中获取数据

ms project vba get data from fields

vba

ms-project