DevTrain Forum - Fuktioniert ..Aber viel zu langsam ..3x For... 2x IF.....Jemand eine Idee um es schneller zu machen???

Forum: VB.NET | Thema: Fuktioniert ..Aber viel zu langsam ..3x For... 2x IF.....Jemand eine Idee um es schneller zu machen??? | Von: m No ( 28.07.2004 12:14)

		Dim id As Integer
Dim Index As Integer
For Each newRow In newdt.Rows
  For Each dr In.Tables"Person").Rows
    If dr.Item(0) = newRow.Item(0) Then
     For Index = 1 To ds.Tables("Alle").Rows.Count
      If id = dr.Item(1) And Index = dr.Item(2) Then  newRow.Item("MN" & "_" & id & "_" & Index) = dr.Item(4)
        Exit For
       End If
      Next
     End If
  Next
Next

no
	

Betreff Von Datum

Re: Fuktioniert ..Aber viel zu langsam ..3x For... 2x...

Hi, so wenig Zeilen und ich muß so lange überlegen was die machen: Ich würde sie als erstes einmal aufräumen. Zu Deiner Frage: Die ersten zwei Schleifen lassen sich vereinfachen for each...

Klaas Wedemeyer 29.07.2004 10:10

Re: Fuktioniert ..Aber viel zu langsam ..3x For......

Danke für die hilfe! if Index>=1 and Index<= ds.tables("Alle").Rows.count then kann ich leider nicht machen, es werden davor schon Spalten erstellt ,und beim füllen muß der index = MassnAnz...

G. Guest 02.08.2004 10:45

Antworten Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!