2 
'CLASS PROPERTY CODE
Public Property Let setCode_ID(ByVal vCode_ID As String)
    Code_ID = vCode_ID
End Property

For Each Cell In WS_CostCode.Range(Cells(2, 1), Cells(fRow, 1)) 'COLUMN OF CODE_ID
    Set CostCodeItem = New Cost_CodeCL
    CostCodeItem.setCode_ID = "code id" 'WS_CostCode.Cells(Cell.Row, Cell.Column) 'SET CODE_ID 'SET CODE_ID
    CostCodeItem.setCode_Description = "code desc" 'WS_CostCode.Cells(Cell.Row, Cell.Column + 1) 'SET CODE_DESCRIPTION
    CostCodeItem.setCode_Category = "code category" 'WS_CostCode.Cells(Cell.Row, Cell.Column + 2) 'SET CODE_CATEGORY

    uKey = CostCodeItem.getCode_ID
    Debug.Print CostCodeItem.getCode_ID
    CostCodeColl.Add CostCodeItem, CostCodeItem.getCode_ID
Next Cell

私のプロパティ「vCode」は、For Each ループ内で渡した文字列を表示する必要がありますが、実行するとすぐにプロパティ Let にアクセスし、文字列が渡されていることを確認するためにステップスルーすると、「」と表示されます。私が通過しているものの代わりに。

別のクラスでまったく同じコードを使用しましたが、期待どおりに完全に機能します。これが正しく動作しないのはなぜですか。

ありがとう

4

1 に答える 1

0

うわー、私はそのような初心者のように感じます！誰かの時間を無駄にしてごめんなさい。私は多くのコードを探していて、十分な休息が取れていないと思います。数式の 1 つを誤って逆に書き込んでしまいました。

再度、感謝します。

于 2012-04-13T13:15:56.830 に答える