0

リスト内のアイテムに値を追加するにはどうすればよいですか。リストタイプはこのクラスです:-

<SoapType("TOBWeeksHeld", "urn:daeoverbrandIntf")> _
Public Class TOBWeeksHeld
    Public siteID As String
    Public checkIn As String
    Public resortName As String
    Public country As String
    Public region As String
    Public locality As String
    Public weekId As String
    Public bedrooms As String
    Public sleeps As String
    Public bookingType As String
    Public resortId As String
    Public timeToExpiry As String
    Public specialFlag As String
    Public extMemberNo As String
End Class

私が試みるすべて、次のような:- 

Dim newWeeksOnHold As New List(Of TOBWeeksHeld)
With newWeeksOnHold(0)
.siteID = siteID
.checkIn = weeksOnHold.daeWeeksHeld(i).checkIn()
.resortName = weeksOnHold.daeWeeksHeld(i).resortName()
.country = weeksOnHold.daeWeeksHeld(i).country()
.region = weeksOnHold.daeWeeksHeld(i).region()
.locality = weeksOnHold.daeWeeksHeld(i).locality()
.weekId = weeksOnHold.daeWeeksHeld(i).weekId()
.bedrooms = weeksOnHold.daeWeeksHeld(i).bedrooms()
.sleeps = weeksOnHold.daeWeeksHeld(i).sleeps()
.bookingType = weeksOnHold.daeWeeksHeld(i).bookingType()
.resortId = weeksOnHold.daeWeeksHeld(i).resortId()
.timeToExpiry = weeksOnHold.daeWeeksHeld(i).timeToExpiry()
.specialFlag = weeksOnHold.daeWeeksHeld(i).specialFlag()
.extMemberNo = weeksOnHold.daeWeeksHeld(i).extMemberNo()
End With

「With newWeeksOnHold(0)」行のインデックスが範囲外であるという同じエラーがデバッガーに表示されます。リストが空で、特定のインデックスに移動するように指示しているためだと思います。ただし、追加、挿入、およびその他のいくつかのことを試してみましたが、役に立ちませんでした。

これの目的は、Web サービスの結果を読み取り、それを別のクラスとして出力することです。

どんな助けでも大歓迎です。

4

2 に答える 2

2

リストに何も挿入していないため、リストは空です。

Dim newWeeksOnHold As New List(Of TOBWeeksHeld)
newWeeksOnHold.Add(New TOBWeeksHeld) ' <-- insert a new item
With newWeeksOnHold(0)
'...
End With
于 2013-02-16T14:12:24.263 に答える
0

リストに要素を設定する前に、リストにエントリを追加する必要があります。newWeeksOnHoldはまだ空です

于 2013-02-19T17:36:13.547 に答える