添加 TimeScaleValue MS 项目时出现异常答案

【问题标题】：Exception while adding TimeScaleValue MS Project添加 TimeScaleValue MS 项目时出现异常
【发布时间】：2014-04-08 02:34:55
【问题描述】：

我在这段代码中遇到了这个异常：

Dim TSV As TimeScaleValues
TSV = ActiveProject.Task(ntask).Resources(nresource).TimeScaleData(nStartDate , nEndDate, PjResourceTimescaledData.pjResourceTimescaledActualWork, PjTimescaleUnit.pjTimescaleDays, 1)

TSV.item(1).Add( nMinutes , 1 ) ' nMinutes is the value of time in minutes. The error occours in this line !!!!

当我执行最后一行时，我得到了这个异常

参数值无效。

错误代码-2146827187

{Microsoft.Office.Interop.MSProject.TimeScaleValue Add(System.Object, System.Object)}

奇怪的是我从microsoft reference page.得到了这个例子

我想做的是在项目中添加时间尺度。

【问题讨论】：

标签： visual-studio-2010 ms-office ms-project

【解决方案1】：

我解决了这个问题。我将值设置在错误的位置。

似乎很困惑，但我试图从资源中获取时间刻度值，但设置值的正确位置是在作业上。

我正在这样做..

TSV = ActiveProject.Task(ntask).Resources(nresource).TimeScaleData...

正确的代码是这样的：

TSV = ActiveProject.Assignments.TimeScaleData..

为任务中的每个资源创建一个分配，因此最终代码如下：

 For Each assignment As Assignment In Task.Assigments
     if assignment.Resource.WindowsUserAccount = <desiredAccount> then
         tsv = assingment.TimeScaleData..
   end if
Next

【讨论】：