0

嗨，我正在使用结构和集合迈出第一步，我已经使用相同的结构创建了 2 个集合。

一个集合保存今年的数据，另一个保存去年的数据。

是否有可能同时遍历两者？

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

只需使用 For 循环

For i As Integer = 1 To lastYear.Length
    Dim lastYearThing = lastYear(i)
    Dim thisYearThing = thisYear(i)
    ' ...
Next
于 2012-10-30T16:23:41.067 回答
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 回答