Vad är det för fel på funktionen nedan? Den skickar tillbaka den raden med högst värde i Item(1) på alla platser.

Private Function sortera(ByVal ds As DataSet)

        Dim gridLista As New DataTable
        gridLista = ds.Tables("egenskap")
        Dim raderLista As DataRowCollection
        raderLista = gridLista.Rows

        Dim tempRader As DataRowCollection = raderLista

        Dim tempVar As Integer = 0
        Dim plats As Integer = 0
        Dim i As Integer

        Dim storloop As Integer = 0



        For storloop = 0 To (tempRader.Count - 1)


            For i = 0 To (tempRader.Count - 1)
                If Convert.ToInt32(tempRader(i).Item(1)) > tempVar Then
                    tempVar = Convert.ToInt32(tempRader(i).Item(1))
                    plats = i
                End If
            Next
            tempVar = 0
            raderLista(storloop).ItemArray = tempRader(plats).ItemArray
            tempRader(plats).Item(1) = "0"
        Next


        Return ds

End Function

Använd DataView istället

Det var ju smidigt och bra... tack.

Vore dock fortfarande kul att veta varför den andra koden inte fungerade.