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

疏远的是我从这个microsoft reference page.

得到了这个例子

我尝试做的是在项目上添加时间刻度。

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

添加TimeScaleValue MS Project时出现异常

1 个答案: