通过

Resource.CostRateTables Property

  • 项目
Project Developer Reference

Returns a CostRateTables collection representing the cost rate tables for the resource. Read-only Variant.

Syntax

expression.CostRateTables

expression   A variable that represents a Resource object.

Example
The following example lists the standard pay rates for all the cost rate tables of the resource in the active cell.

Visual Basic for Applications 
  Sub ListPayRates()
    Dim CRT As CostRateTable, PR As PayRate
    Dim Rates As String

For Each CRT In ActiveCell.Resource.<strong class="bterm">CostRateTables</strong>
    For Each PR In CRT.PayRates
        Rates = Rates &amp; "CostRateTable " &amp; CRT.Name &amp; ": " &amp; _
            PR.StandardRate &amp; " (Effective " &amp; PR.EffectiveDate &amp; _
                ")" &amp; vbCrLf
    Next PR
Next CRT

MsgBox Rates



End Sub

See Also