Simulation d'une clause 'Where' dans une boucle For Each dans VB.NET

Question

Est-il possible d'avoir quelque chose de similaire à une clause SQL 'WHERE' dans une boucle For Each dans VB.NET? I.E.

FOR EACH event IN events 
    'WHERE eventdate=getdate 
NEXT 

Answer 1

dans LINQ il serait (.NET 3.5 ou supérieur)

For Each event in events.Where(Function(x) x.eventdate = getdate) 
     'Process event 
Next 

et non-Linq (. net 2.0 ou inférieur)

For Each event in events 
    If event.eventdate = getdate Then 
     'Process event 
    End If 
Next 

Answer 2

Vous ne pouvez pas faire ce que vous décrivez dans une boucle pour chaque boucle. Vous pouvez le faire dans une boucle for en C#, mais je ne pense pas que vous pouvez en VB .NET.

Vous avez vraiment plusieurs options pour résoudre ce problème.

Une façon serait de le faire:

For Each event As Event in events 
    If eventdate = getdate then 
     Continue For 
    End If 
Next 

Vous pouvez aussi le faire en utilisant LINQ, mais il peut soutenir dans ce cas, si cela vous aiderait.

Answer 3

Bien sûr, il est, cet exemple devrait être suffisant pour vous aller:

For Each dvr As DataRowView In dv 
    If dvr("IsVisible") = False Then 
     Continue For 
    End If 

     ' Do something here 
Next 

Answer 4

Avec LINQ:

For Each p As Person In (From pers In Persons Where pers.Firstname = "Stefan") 
      'Only handle persons with first name "Stefan" 
      MsgBox(p.LastName) 
     Next 
    End Sub 

Answer 5

Mes 2 cents:

Si vous utilisez VB 8.0 (.NET Framework 2.0) avec List (Of T) .FindAll:

Public Shared Sub Show() 
    Dim filtredEvents As List(Of Event) = New List(Of Event)().FindAll(Function (ByVal e As Event) 
     Return (e.EventDate = DateTime.Today) 
    End Function) 
    Dim anEvent As Event 
    For Each anEvent In filtredEvents 
     Console.WriteLine(anEvent.EventDate) 
    Next 
End Sub