添加 TimeScaleValue MS 项目时出现异常

Question

>我在此代码中遇到此异常：

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）}

最远的事情是，我从这个微软参考页面得到了这个例子。

我想做的是在项目上添加一个时间到时间刻度。

Answer 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