DGV Filtern Sortieren Besonderheiten

Haudruferzappeltnoch · 11. Januar 2023, 13:35

Hallo,

ich habe ein paar Fragen bezüglich DGV, da ich gerade daran bastel.

Wenn man einen Spaltenkopf anklickt, löst das DGV automatisch eine Sortierung aus. Wie funktioniert diese Sortierung?
Wenn ich die DataSource meiner BindingSource ändere, dann verschwindet diese Sortiermöglichkeit.
Muss die DataSource dafür besonders geschaffen sein?

Und kann man die Sortierung allgemein aufheben? Wenn ich zum Beispiel eine typisierte Tabelle als DataSource habe, dann wird die zumindest nicht selbst umsortiert, daher sollte das doch möglich sein.

Und wo sitzt das Click-Event dafür eigentlich?

Viele Grüße

VaporiZed · 11. Januar 2023, 16:32

Haudruferzappeltnoch schrieb:

Wie funktioniert diese Sortierung?

Abhängig von DataSource oder vom blanken Inhalt. Wenn Du keine DataSource hast, versucht der Compiler das Beste draus zu machen. Packst Du ein Datum in eine Zelle und in der nächsten Zeile einen Text und versuchst zu sortieren, schmiert das Programm ab, weil das Programm dann nicht sortieren kann.

Haudruferzappeltnoch schrieb:

Und wo sitzt das Click-Event dafür eigentlich?

Innerhalb der DGV-Klasse.
Einfach mal das obige Szenario ausprobieren, dann siehst Du bei der Aufrufliste, welche DGV-internen Methoden dann aufgerufen werden:

Wenn die DataSource keine Sortiermethode anbietet, die das DGV akzeptiert, wird einfach nicht sortiert.

Haudruferzappeltnoch · 11. Januar 2023, 18:46

Wie bietet eine DataSource eine Sortiermethode an?

Ich hab das soweit für Anbindung an eine DataTable hingekriegt. Das Sortieren habe ich noch rausgefunden kann ich in den Columns über SortMode deaktivieren.
Mit dem Headerclick habe ich mir stattdessen eine Filter Möglichkeit gebastelt. Außerdem habe ich eine Suchfunktion probiert. Ich würde einfach mal den Code posten, ich hab da glaub ich noch den ein oder anderen Schmu drin und eine Frage:

Spoiler anzeigen

VB.NET-Quellcode

Friend Class Form1
Friend Shared FilterValue As String = "" '''Behälter für FilterDialog Input
Private dv As DataView '''für Ähnlichkeitssuche (DataSource ist die DataTable die in der BindingSource.DataMember Property angegeben ist, DataSource der BindingSource ist hingegen das DataSet
Private Sub btnClearFilter_Click(sender As Object, e As EventArgs) Handles btnClearFilter.Click
If Not BindingSource1.Filter.Contains("Gruppe") Then
BindingSource1.Filter = String.Empty
btnClearFilter.Visible = False
lblClearFilter.Visible = False
Else
Dim idx = BindingSource1.Filter.IndexOf(" AND")
BindingSource1.Filter = BindingSource1.Filter.Substring(0, idx)
btnClearFilter.Visible = False
lblClearFilter.Visible = False
End If
End Sub
Private Sub cbHauptfilter_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles cbHauptfilter.SelectionChangeCommitted
If cbHauptfilter.SelectedItem.ToString = "Alle" Then
BindingSource1.Filter = String.Empty
FilterValue = String.Empty
If btnClearFilter.Visible Then btnClearFilter.Visible = False : lblClearFilter.Visible = False
Else
BindingSource1.Filter = $"Gruppe = '{cbHauptfilter.SelectedItem.ToString}'"
End If
End Sub
Private Sub DGV1_ColumnHeaderMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DGV1.ColumnHeaderMouseClick
Dim idx = e.ColumnIndex
Dim ColumnName = DGV1.Columns(idx).DataPropertyName
If {"Artikel", "Ort"}.Contains(ColumnName) Then
Using filter As New FilterDialog
filter.Location = e.Location ''' Das hier geht nicht
If filter.ShowDialog(Me) = DialogResult.OK Then
If BindingSource1.Filter = String.Empty Then
BindingSource1.Filter = $"{ColumnName} = {FilterValue}"
ElseIf BindingSource1.Filter.Contains(ColumnName) Then
Dim i = BindingSource1.Filter.IndexOf(ColumnName) + ColumnName.Length + 3
BindingSource1.Filter = BindingSource1.Filter.Substring(0, i) & FilterValue
Else
BindingSource1.Filter &= $" AND {ColumnName} = {FilterValue}"
End If
If Not btnClearFilter.Visible Then
btnClearFilter.Visible = True
lblClearFilter.Visible = True
End If
End If
End Using
End If
End Sub
Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click
Dim LookUpString = tbSearch.Text
Dim result = BindingSource1.Find("Kunde", LookUpString)
If result = -1 Then
dv.RowFilter = $"Kunde LIKE '*{LookUpString}*'"
If dv.Count > 0 Then
result = BindingSource1.Find("Kunde", dv(0)("Kunde"))
End If
End If
If result = -1 Then MessageBox.Show("Keine Treffer") : Exit Sub
DGV1.Rows(result).Selected = True
DGV1.FirstDisplayedScrollingRowIndex = result
End Sub
End Class
Friend Class FilterDialog
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
Form1.FilterValue = tbFilterValue.Text
End Sub
End Class

Die Suche mit der BindingSource.Find() berücksichtigt die die momentane Filterung? Das DataView ist ja unabhängig davon, das heißt so würde ich dann je nachdem ob vollständiger Match oder nur ähnlicher Match in unterschiedlichen Quellen suchen?

Den FilterDialog, den ich aufrufe, würde ich auch gerne dort aufrufen, wo man geklickt hat. Aber e.Location, welches sich zwar so anhört als wäre es was ich brauche, gibt mir immer dieselben falschen Werte. FilterDialog.StartPosition habe ich auf Manual eingestellt.

ErfinderDesRades · 12. Januar 2023, 16:43

Haudruferzappeltnoch schrieb:

Wie bietet eine DataSource eine Sortiermethode an?

Sie implementiert das Interface IBindingList und/oder IBindingListView.
Wenn du databinding-getrieben arbeitest, mit einem Dataset, ist das OnBord - nämlich vermittelst der Klassen BindingSource und DataView.
Wobei BindingSource nur ein "Durchleiter" ist, die Umsetzung von Sortieren und Filtern geschieht im durch die BS gewrapperten DataView.
Wenn die BS an ein Dataset gebunden ist.

Haudruferzappeltnoch · 17. Januar 2023, 09:12

Ich hätte da noch etwas

Es gibt ja einen DGV.SelectionMode, wenn der auf FullRowSelect steht, dann kann ich eine Zelle anklicken und bekomme in DGV.SelectedRows die Zeile die ich gewählt habe.
Wenn der Mode hingegen auf RowHeaderSelect steht, dann bleibt DGV.SelectedRows leer.

Ich würde gerne im Modus RowHeaderSelect eine Sammlung der Zeilen bekommen, die 1 oder mehr Zellen selected haben. Gibt es da einen ShortCut?

Das ist was ich mache:

VB.NET-Quellcode

Dim selection = DGVGestelle.SelectedCells.Cast(Of DataGridViewCell)
For Each cell In selection
DGV.Rows(cell.RowIndex).Selected = True
Next
Dim selectedRows = DGV.SelectedRows.Cast(Of DataGridViewRow)

VaporiZed · 17. Januar 2023, 09:35

Bei RowHeaderSelect wird eine Zeile dann vollständig markiert und in die SelectedRows aufgenommen, wenn - tja, das sagt ja der Modus schon - der RowHeader angeklickt wird. Dazu muss der natürlich sichtbar sein.
Und um dann alle Zeilen und Zellen zu bekommen, die dann markiert sind:

VB.NET-Quellcode

Dim SelectedRows = DeinDGV.SelectedRows.Cast(Of DataGridViewRow)
Dim SelectedCells = DeinDGV.SelectedRows.Cast(Of DataGridViewRow).SelectMany(Function(x) x.Cells.Cast(Of DataGridViewCell))

Haudruferzappeltnoch · 17. Januar 2023, 09:42

Ja das weiß ich, aber genau das will ich überspringen.

Ich will Zelle C2 auswählen, in selectedRows aber Zeile 2 enthalten haben. In meinem Code selektiere ich die Row halt nochmal nachträglich, bevor ich nachgucke

VaporiZed · 17. Januar 2023, 09:48

Achso. Einen offiziellen Shortcut kenn ich nicht, kannst Du aber nachrüsten:

VB.NET-Quellcode

Private Sub DeinDGV_KeyDown(sender As Object, e As KeyEventArgs) Handles DeinDGV.KeyDown
If e.Control AndAlso e.KeyValue = Keys.A Then
DeinDGV.SelectedCells.Cast(Of DataGridViewCell).ToList.ForEach(Sub(x) DeinDGV.Rows(x.RowIndex).Selected = True)
e.Handled = True
End If
End Sub

DGV Filtern Sortieren Besonderheiten

DGV Filtern Sortieren Besonderheiten

Haudruferzappeltnoch schrieb:

Haudruferzappeltnoch schrieb:

VB.NET-Quellcode

Haudruferzappeltnoch schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

3 Benutzer haben hier geschrieben