'Daten (incl. 0-Wert im R0-Array)
 Dim R0() As Integer = _
        {10, 10, 10, 10, 7, 11, 9, 7, 10, 10, 10, 0}
 
 Dim R1() As Integer = _
        {40, 38, 37, 35, 24, 37, 29, 22, 36, 39, 33, 12}
 
 
 'Tabelle füllen
 Dim dt As New DataTable
 
 With dt
    With .Columns
       .Add("R0", GetType(Integer))
       .Add("R1", GetType(Integer))
       .Add("R1 / R0", GetType(Double), "R1/R0") 'Die Expression-Spalte
    End With
 
    'Daten eintragen
    For i As Integer = 0 To R0.Length - 1
        'Expression wird automatisch berechnet
        .Rows.Add(R0(i), R1(i))
    Next i
 
End With
 
'Tabelle an BindingSource hängen
Dim bs As New BindingSource(dt, Nothing)
 
'Bindingsource-Auflistung (=DataRowView) fallend sortieren
bs.Sort = "R1 / R0 Desc"
 
'einen Wert in der Expression-Column aus Table sortiert per Bindinglist abfragen
Dim rel As Double = CDbl(DirectCast(bs(0), DataRowView).Row(2))
 
'Falls dgv ein DatagridView-Control ist ...
'-- Werte anzeigen
dgv.DataSource = bs