0

こんにちは、構造とコレクションで最初の一歩を踏み出しました。同じ構造を使用して2つのコレクションを作成しました。

1つのコレクションには、今年と最後のデータが保持されます。

両方を同時に繰り返すことは可能ですか？

Structure dateControl

   Dim StartDate As Date
   Dim EndDate As Date
   Dim weekCount As Integer
   Dim YearWeek As Integer

End Structure

Dim LastYearStruct As dateControl

    For I = 1 To howmanyweeks

        LastYearStruct.StartDate = DateAdd(DateInterval.WeekOfYear, I - 1, dateFirstSunday)
        LastYearStruct.EndDate = DateAdd(DateInterval.Day, 7, LastYearStruct.StartDate)
        LastYearStruct.weekCount = I
        LastYearStruct.YearWeek = I

        lastYear.Add(LastYearStruct)

    Next

Dim ThisYearStruct As dateControl

    For I = 1 To howmanyweeks

        ThisYearStruct.StartDate = DateAdd(DateInterval.WeekOfYear, I - 1, dateFirstSunday)
        ThisYearStruct.EndDate = DateAdd(DateInterval.Day, 7, ThisYearStruct.StartDate)
        ThisYearStruct.weekCount = I
        ThisYearStruct.YearWeek = I

        ThisYear.Add(ThisYearStruct)

    Next

私は次のようなことを試みていました

今年と昨年のそれぞれについて

debug.printのこと

次

助けてくれてありがとう

4

2 に答える 2

1

コレクションを同時に手動で繰り返すことができます。

    Dim lastYearEnumerator = lastYear.GetEnumerator()
    Dim thisYearEnumerator = ThisYear.GetEnumerator()
    Do While lastYearEnumerator.MoveNext AndAlso thisYearEnumerator.MoveNext
        Dim lastYearThing = lastYearEnumerator.Current
        Dim thisYearThing = thisYearEnumerator.Current

        ' do stuff with things
    Loop

これは、どちらかのコレクションの終わりに達するまで、両方のコレクションを繰り返し処理します。

于 2012-10-30T16:19:31.070 に答える
1

Forループを使用するだけです

For i As Integer = 1 To lastYear.Length
    Dim lastYearThing = lastYear(i)
    Dim thisYearThing = thisYear(i)
    ' ...
Next
于 2012-10-30T16:23:41.067 に答える