vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Blitzschnelles Erstellen von grafischen Diagrammen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Re: DGV nach bestimmten Werten sortieren 
Autor: Manfred X
Datum: 21.03.19 10:40

Du kannst eventuell auch die geladenen Datensätze
in der DataTable in die gewünschte Reihenfolge bringen.
(Bei mehr als einigen Hundert Datensätzen wäre allerdings
ein effizienterer Sortieralgorithmus nötig.)
 
Public Class frmDGVSortComparerDemo
 
    Dim dt As New DataTable
    Dim bs As New BindingSource
 
    Dim dgv As New DataGridView With
        {.Parent = Me, .Size = New Size(300, 400)}
 
    Dim comparerlist As New List(Of String)
 
 
    Private Sub frmDGVSortComparerDemo_Load(sender As Object,
                                    e As EventArgs) Handles MyBase.Load
 
        Me.Width = 320
        Me.Height = 500
 
        'Vorgabeliste für Sortierreihenfolge
        With comparerlist
            .AddRange({"Boot", "Motorrad", "Auto", "Zug", "Laufen"})
        End With
 
        'Testdaten in Table eintragen
        dt.Columns.Add("Mobilität")
        For i As Integer = 0 To 100
            dt.Rows.Add(comparerlist(rndm.Next(comparerlist.Count)))
        Next i
 
        OrderTableRows()
 
        bs.DataSource = dt
        dgv.DataSource = bs
    End Sub
 
 
    Private Sub OrderTableRows()
 
        With dt.Rows
            Dim row As DataRow = dt.NewRow
            For i As Integer = 0 To .Count - 2
                For k As Integer = i + 1 To .Count - 1
                    Dim val_i As String = .Item(i).Field(Of String)("Mobilität")
                    Dim val_k As String = .Item(k).Field(Of String)("Mobilität")
                    Dim ind_i As Integer = comparerlist.IndexOf(val_i)
                    Dim ind_k As Integer = comparerlist.IndexOf(val_k)
                    If ind_i > ind_k Then
                        row.ItemArray = .Item(i).ItemArray
                        .Item(i).ItemArray = .Item(k).ItemArray
                        .Item(k).ItemArray = row.ItemArray
                    End If
                Next k
            Next i
        End With
        dt.AcceptChanges()
    End Sub
End Class


Beitrag wurde zuletzt am 21.03.19 um 10:46:29 editiert.
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
DGV nach bestimmten Werten sortieren724Bloing21.03.19 07:03
Re: DGV nach bestimmten Werten sortieren380Manfred X21.03.19 08:51
Datagridview: ComparerByList392Manfred X21.03.19 09:40
Re: DGV nach bestimmten Werten sortieren367Bloing21.03.19 09:54
Re: DGV nach bestimmten Werten sortieren370Manfred X21.03.19 10:03
Re: DGV nach bestimmten Werten sortieren375effeff21.03.19 10:17
Re: DGV nach bestimmten Werten sortieren354Bloing21.03.19 10:14
Re: DGV nach bestimmten Werten sortieren353Bloing21.03.19 10:31
Re: DGV nach bestimmten Werten sortieren377Manfred X21.03.19 10:40
Re: DGV nach bestimmten Werten sortieren356Bloing21.03.19 11:08
Re: DGV nach bestimmten Werten sortieren363Manfred X21.03.19 11:27

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel