Für jede Schleife in vb.net

Wie benutze ich die for-Schleife in vb.net so etwas wie

dim start as integer
Dim customers as New List(Of Customers)

Customers=dataAcess.GetCustomers()

For each start=500 in  Customers.count
  'Do something here'
Next

Ich will Prozess einige Daten für jede 500 Kunden.. Bitte helfen

Meinst du, dass Sie möchten, dass die Schleife für die Iteration über die Liste der Kunden, die in Blöcken von 500?
Könnten Sie näher erläutern, was du meinst mit "jede 500-Kunden"?
erstellen Sie nicht eine "neue" Liste der Kunden, wenn Sie nur gehen, um es zu ersetzen auf der nächsten Zeile.

InformationsquelleAutor | 2009-08-25

7

Zunächst erstellen Sie nicht eine New Liste der Kunden, wenn Sie nur gehen, um die Zuweisung unterschiedlicher Liste der Verweis auf die nächste Zeile. Das ist ein bisschen dumm. Machen Sie es wie diese:
```
Dim customers As List(Of Customer) = dataAccess.GetCustomers()
```
Dann für die Schleife benötigen Sie eine einfache "For" - Schleife statt einer for each -. Vergessen Sie nicht zu stoppen, bevor das Ende der Liste:
```
For i As Integer = 500 To Customers.Count -1 
    'do something with Customers(i) here
Next i
```
Wenn Sie Visual Studio 2008 Sie können auch schreiben Sie es wie folgt:
```
For each item As Customer in  Customers.Skip(500)
   'Do something with "item" here
Next
```
InformationsquelleAutor Joel Coehoorn

Versuchen Sie die folgenden

For Each current In customers
  '' //Do something here 
  Console.WriteLine(current.Name)
Next

InformationsquelleAutor JaredPar

1

Etwas wie dieses:-
```
Dim customers as New List(Of Customer)

Customers=dataAcess.GetCustomers()

For Each customer AS Customer in  Customers
   '' //do something with the customer object
Next
```
Bearbeiten

Klingt wie Sie wollen, wählen Sie 500 von N Elementen, oder vielleicht die nächsten 500. Sie könnten die Verwendung der LINQ-extension-Methoden .Take - und/oder .Skip um dies zu erreichen. Verwenden ToList dann auf Ihre Liste zu erstellen. E. g.:-
```
Dim customers as List(Of Customer)
customers = dataAccess.GetCustomers().Skip(500).Take(500).ToList()
```
Wenn alles, was Sie tun wollen enum durch die Kunden dann könnte man verzichten ToList().

Ich will es tun, für je 500 Kunden.
Meinst du, dass Sie wollen, tun Sie es für jede 500ste Kunde, vielleicht? Es ist noch unklar, was Sie versuchen zu erreichen.

InformationsquelleAutor AnthonyWJones
1

'Start bei 500 und Prozess zu Ende....
```
for start as integer = 500 to Customers.Count

'process customer....
customer = Customers(start)

Next
```
Zum Durchlaufen der gesamten Liste:
```
for each cust as Customer in Customers

Next 
```
Einen Hinweis.... VB ist groß-und Kleinschreibung und deinen Beispiel-code scheint nicht zu verwenden, Kleinbuchstaben und Großbuchstaben Kunden

Wenn ich versuche, dies für start as integer = 500 Kunden.Graf ich bin immer eine Fehlermeldung besagt, dass Kunden nicht nach int umgewandelt
Stellen Sie Ihren Kunden an die Kunden(start) - index...

InformationsquelleAutor klabranche

Dim start as Integer
Dim customers as New List(Of Customers)

Customers = dataAcess.GetCustomers()

For i as Integer = start to Customers.count Step 500
    Debug.Print Customers(i).someProperty
    Do something here
Next i

Ich glaube, Sie müssen verwenden Sie die Customer-index und Schritt in die 500er. Dies wird nur Prozess-Kunden(start), Kunden(start+500), Kunden(start+1000) usw, nicht alle Kunden. Ist es das, was Sie beabsichtigen?

InformationsquelleAutor Martin

Ich bin mir nicht ganz sicher, was du versuchst zu tun, aber vielleicht könnten Sie versuchen, diese:

Dim count As Integer = 0
Const MAX_CUSTOMERS As Integer = 500
Dim customers As List(Of Customers) = dataAcess.GetCustomers()

For Each c As Customer In customers
    'do stuff here'
    c.Name = "Billy"
    count+=1

    If count = MAX_CUSTOMERS Then Exit For
Next

Es ist nicht elegant, aber es macht Sinn und es funktioniert.

InformationsquelleAutor Jason

0

Offensichtlich gibt es keinen Mangel an Vielfalt. Ich glaube nicht, erkennen Sie Ihre "DataAcess" den Objekt-Typ, aber wenn Sie können, ziehen Sie die Tabelle als Recordset (also eine SQL-Tabelle), dann versuchen Sie dies. (Vergessen Sie nicht, um das recordset zurück, wenn fertig)
```
Option Explicit

Dim Customers As Recordset
Set Customers=currentdb.openrecordset("???")

While Customers.EOF=False
   'do stuff here using the recordset object
   'i.e. Customers.Fields("Name")="Billy"
   Customers.MoveNext
Wend
```
InformationsquelleAutor PowerUser

Du kannst entweder versuchen:

    For i As Integer = 500 To (customers.Count -1)
        ''do something
    Next

Oder

    For i As Integer = 0 To (customers.Count - 1) step 500
        ''do something
    Next

InformationsquelleAutor Fredou

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.