' Filterkriterium definieren und Tabelle filtern
Dim FilterListe As String = ListName & " = '" & tName & "'"
Dim Auszug As DataRow() = dtNrsSource.Select(FilterListe)
 
' Werte für Spalte 2 berechnen
For Each rw As DataRow In Extract
   rw.Item("A") = Calculate(rw.Item("B"), rw.Item("C"))
Next
 
Dim SortListe As String = "..."
Dim Auszug2 As DataRow() = dtNrsSource.Select(FilterListe, SortListe)
 
 
' Nach Sortierung weitere Spalte mit Seq.Nr füllen (nach der wird später 
' sortiert)
For i As Integer = 0 to Auszug2.Count - 1
   rw.Item("D") = i
Next