ListOf( Eigene Klasse ) nach unterschiedlichen Propertys sortieren

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von VaporiZed.

    ListOf( Eigene Klasse ) nach unterschiedlichen Propertys sortieren

    Ich habe eine eigene Klasse

    VB.NET-Quellcode

    1. Public Class clsArticle
    3. Public Property ArtNr As String
    4. Public Property Name As String
    5. End Class


    und eine

    VB.NET-Quellcode

    1. LstArticles As New List(Of clsArticle)


    Könnt Ihr mir sagen, wie ich die Liste nach der Property Name aufsteigend/absteigend sortieren kann?

    Ich hab jetzt schon ne Weile gesucht und mit IComparable probiert aber irgendwie stehe ich auf dem Schlauch.

    VB.NET-Quellcode

    1. Dim OrderedList = LstArticles.OrderBy(Function(x) x.Name).ToList

    Das wäre aufsteigend. Absteigend: Da gibt's was ähnliches wie OrderBy. Find's mal selbst raus. ;)
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Prima, rausgefunden, danke.

    Das ganze soll jetzt noch beim Klick auf einen Spaltenkopf in einem Datagridview passieren, d.h. ich muß das "x.Name" in

    VB.NET-Quellcode

    1. Dim OrderedList = LstArticles.OrderBy(Function(x) x.Name).ToList


    per Variable setzen können. Geht das oder muß ich für jede Spalte meiner Tabelle hard coden?

    naja, du musst nu iwas dolles ans DGV drancoden, dass da eine Sortierung ausgelöst wird, wenn du auf einen SpaltenHeader klickst.
    Jo, und für jede Spalte musst du Code aufsetzen - es sei denn, du bastelst was dolles mit Reflection.

    Ich rate eher ab von selbstgebastelten Datenklassen, und empfehle immer typisiertes Dataset, mit seinen generierten Datenklassen - da kriegst du Sortieren auf und ab bei DGV-HeaderClick geschenkt - ohne eine Codezeile.
    Auch Filtern kriegst du weitestgehend geschenkt - eine Codezeile (den Filter muss man ja setzen).
    Und alles mögliche andere, was man für eine Datenverarbeitung braucht, kriegt man auch geschenkt.

    Hab bei CodeProject was gefunden. Hab's mal nach VB.NET übersetzt. Wenn Du diese Klasse als Datenhaltung verwendest, geht's, siehe Beispiel.
    SortableBindingList

    VB.NET-Quellcode

    1. Imports System.ComponentModel
    3. Public Class SortableBindingList(Of T) : Inherits BindingList(Of T)
    4. Private IsSorted As Boolean
    5. Private SortDirection As ListSortDirection
    6. Private SortProperty As PropertyDescriptor
    8. Public Sub New(Enumerable As IEnumerable(Of T))
    9. MyBase.New(Enumerable.ToList())
    10. End Sub
    12. Public Sub New()
    13. End Sub
    15. Protected Overrides ReadOnly Property SupportsSortingCore As Boolean
    16. Get
    17. Return True
    18. End Get
    19. End Property
    21. Protected Overrides ReadOnly Property IsSortedCore As Boolean
    22. Get
    23. Return IsSorted
    24. End Get
    25. End Property
    27. Protected Overrides ReadOnly Property SortDirectionCore As ListSortDirection
    28. Get
    29. Return SortDirection
    30. End Get
    31. End Property
    33. Protected Overrides ReadOnly Property SortPropertyCore As PropertyDescriptor
    34. Get
    35. Return SortProperty
    36. End Get
    37. End Property
    39. Protected Overrides Sub ApplySortCore(PropertyDescriptor As PropertyDescriptor, Direction As ListSortDirection)
    40. IsSorted = True
    41. SortDirection = Direction
    42. SortProperty = PropertyDescriptor
    44. Dim Predicate As Func(Of T, Object) = Function(x) x.GetType().GetProperty(PropertyDescriptor.Name).GetValue(x, Nothing)
    45. ResetItems(If(SortDirection = ListSortDirection.Ascending, Items.AsParallel().OrderBy(Predicate), Items.AsParallel().OrderByDescending(Predicate)))
    46. End Sub
    48. Protected Overrides Sub RemoveSortCore()
    49. IsSorted = False
    50. SortDirection = MyBase.SortDirectionCore
    51. SortProperty = MyBase.SortPropertyCore
    52. ResetBindings()
    53. End Sub
    55. Private Sub ResetItems(Items As IEnumerable(Of T))
    56. RaiseListChangedEvents = False
    57. Dim TempList = Items.ToList()
    58. ClearItems()
    59. TempList.ForEach(Sub(x) Add(x))
    60. RaiseListChangedEvents = True
    61. ResetBindings()
    62. End Sub
    64. Public Function Load(Enumeration As IEnumerable(Of T)) As SortableBindingList(Of T)
    65. ResetItems(Enumeration)
    66. Return Me
    67. End Function
    68. End Class

    Beispiel:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private ReadOnly Cars As New SortableBindingList(Of Car)
    5. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    6. Cars.Add(New Car With {.Name = "Dummler Brenz"})
    7. Cars.Add(New Car With {.Name = "Audio"})
    8. DataGridView1.DataSource = Cars
    9. End Sub
    11. End Class
    13. Public Class Car
    14. Property Name As String
    15. End Class

    Starten, ColumnHeader klicken, ist sortiert.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

Facebook
Telefonspende