Tables(e.DataTable.Name).Rows(Tables(e.DataTable.Name).Rows.Count-1).Move(0)
Dim drs As List(of DataRow) = e.DataTable.Select("","[_SortKey]")
For i As Integer = 0 To drs.Count - 1 drs(i).BaseRow("_SortKey") = i Next