Hallo zusammen.
Ich muss an einer Stelle ein DataGridView manuell befüllen. Das klappt auch wunderbar, nur komme ich mit der Sortierung nicht weiter.
Zeile 13 will ich eigentlich weglassen und über Zeile 10 direkt vorsortieren:
Und zwar erst nach
Hänge ich an Zeile 10 hinten ein
Lässt sich das irgendwie in der Zeile lösen oder ist das so nicht gewollt?
Edit:
Hat sich erledigt, wollte nen Ausschnitt machen, wie ich mir das vorstelle und auf einmal ging's. IntelliSense hatte an der Stelle einfach keine Lust
So geht's nu:
Ich muss an einer Stelle ein DataGridView manuell befüllen. Das klappt auch wunderbar, nur komme ich mit der Sortierung nicht weiter.
Zeile 13 will ich eigentlich weglassen und über Zeile 10 direkt vorsortieren:
Und zwar erst nach
rwPlaner.MitarbeiterRow.StandortRow.Name
, danach nach rwPlaner.MitarbeiterRow.expFullname
Hänge ich an Zeile 10 hinten ein
.OrderBy(Function(y)y.MitarbeiterRow...
dran, komme ich aber nicht an die untergeordneten (.StandortRow
und .expFullname
)Lässt sich das irgendwie in der Zeile lösen oder ist das so nicht gewollt?
VB.NET-Quellcode
- Private Sub FillDgvAbwesenheit()
- cursWait()
- With dgvAbwesenheit
- .Columns.Clear()
- .Columns.Add("Mitarbeiter", "Mitarbeiter")
- .Columns.Add("Standort", "Standort")
- .Columns.Add("Status", "Status")
- .Columns.Add("Abweichung", "Abweichung")
- End With
- For Each rwPlaner In Dts.Planer.Where(Function(x) x.Datum = Date.Today AndAlso x.expAnzeigeAbwesend)
- dgvAbwesenheit.Rows.Add(rwPlaner.MitarbeiterRow.expFullname, rwPlaner.MitarbeiterRow.StandortRow.Name, rwPlaner.PlanerStatusRow.Bedeutung, rwPlaner.PlanerStatusRowByFK_PlanerStatus_Planer1.Bedeutung)
- Next
- dgvAbwesenheit.Sort(dgvAbwesenheit.Columns("Standort"), ListSortDirection.Ascending) 'TODO: Sortierung nach 2 Col's: Erst Standort, dann Mitarbeiter
- dgvAbwesenheit.SetDgvColumnWidthAutosizeOnce
- cursDefault()
- End Sub
Edit:
Hat sich erledigt, wollte nen Ausschnitt machen, wie ich mir das vorstelle und auf einmal ging's. IntelliSense hatte an der Stelle einfach keine Lust
So geht's nu:
For Each rwPlaner In Dts.Planer.Where(Function(x) x.Datum = Date.Today AndAlso x.expAnzeigeAbwesend).OrderBy(Function(y) y.MitarbeiterRow.StandortRow.Name).ThenBy(Function(z) z.MitarbeiterRow.expFullname)
"Na, wie ist das Wetter bei dir?"
"Caps Lock."
"Hä?"
"Shift ohne Ende!"
"Caps Lock."
"Hä?"
"Shift ohne Ende!"