0

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

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

奇怪的是我从这个微软参考页面得到了这个例子。

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

4

1 回答 1

0

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

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

我在做这个。。

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
于 2012-11-30T17:10:27.653 回答