' 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
 
' DataRows sortieren
Dim SortArray() As String = {"A","B","C"} ' sind Spalten in der Tabelle
Auszug.Sort(SortArray)
 
' Nach Sortierung weitere Spalte mit Seq.Nr füllen (nach der wird später 
' sortiert)
For i As Integer = 0 to Auszug.Count - 1
   rw.Item("D") = i
Next