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

奇妙なことは、このMicrosoftリファレンスページからこの例を正しく入手したことです。

私がやろうとしているのは、プロジェクトに時間スケールを追加することです。

4

1 に答える 1

0

私は問題を解決しました。間違った場所に値を設定していました。

混乱しているようですが、リソースからタイムスケール値を取得しようとしていましたが、値を設定する適切な場所は割り当てです。

私はこれをやっていた。

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

正しいコードは次のようなものです。

TSV = ActiveProject.Assignments.TimeScaleData..

タスク内のリソースごとに1つの評価が作成されるため、最終的なコードは次のようになります。

 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 に答える