Visual Basic

Module Module1
    Sub Main()
        Try
            Application.run(New Form1)
        Catch ex As Exception
            Console.WriteLine(ex.ToString)
        End Try
        Console.WriteLine("hit any key to finish...")
        Console.ReadKey()
    End Sub
End Module

GenerateDBDirectMethods = true

Table1TableAdapter.GenerateDBDirectMethods = true

SELECT * FROM myDB ORDER BY a, b DESC

iBlockRowStart = iCurrentRow
iBlockRowStop = iBlockRowStart

' Step 1: The first row of the block is recognized through a previous if-inquiry. Now get the last row with the appropiate condition - in this case the block ends until the day of week in the current row isn't friday
' DS is my DataSet, which is already filled with data 

Do While System.Convert.ToDateTime(DS.Tables("AnyTable").Rows(iBlockRowStop).Item("Date")).DayOfWeek = dayofweek.Friday
	iBlockRowStop = iBlockRowStop + 1
	If iBlockRowStop = DS.Tables("AnyTable").Rows.Count Then
		Exit Do
	End If
Loop
iBlockRowStop = iBlockRowStop - 1
						
' Step 2: Clone tablestructure and then copy block-rows to a new, temporary datatable
tempTable = DS.Tables("AnyTable").Clone()
For j = iBlockRowStart To iBlockRowStop
	tempTable.ImportRow(DS.Tables("AnyTable").Rows(j))
Next
						
' Step 3, 4 & 5: Assign Data to DataView, Sort Data and reassign to new DataTable
View = tempTable.DefaultView
View.Sort = "ColA, ColB"
Dim tempTable2 as DataTable = View.ToTable()
						
' Step 6: Copy datarows of tempTable2 into the section of the table in my DataSet, specified by my indices
For j = iBlockRowStart To iBlockRowStop
	For k = 0 To tempTable2.Columns.Count - 1
		DS.Tables("AnyTable").Rows(j).Item(k) = tempTable2.Rows(j - iBlockRowStart).Item(k)
	Next
Next