Hallo zusammen.
Ich habe hier ein seltsames Phänomen. Zur Laufzeit lasse ich mir in einem DGV zusätzlich zu den gebundenen Daten noch ein paar Felder per
RowPrepaint mit Zusatzinformationen aus einer anderen DataTable füllen. Das klappt im Programm selbst auch sehr gut. Allerdings wenn ich
die ganze Geschichte dann nach Excel exportieren möchte sind die Felder, die per RowPrepaint gefüllt wurden nur soweit ausgefüllt, wie es der
Bildschirm gerade anzeigt. Bei den anderen Zeilen steht dann nix drin. Kann ich das Problem irgendwie umgehen?
hab ich schon ausgetestet und bringt nichts.
Ich habe hier ein seltsames Phänomen. Zur Laufzeit lasse ich mir in einem DGV zusätzlich zu den gebundenen Daten noch ein paar Felder per
RowPrepaint mit Zusatzinformationen aus einer anderen DataTable füllen. Das klappt im Programm selbst auch sehr gut. Allerdings wenn ich
die ganze Geschichte dann nach Excel exportieren möchte sind die Felder, die per RowPrepaint gefüllt wurden nur soweit ausgefüllt, wie es der
Bildschirm gerade anzeigt. Bei den anderen Zeilen steht dann nix drin. Kann ich das Problem irgendwie umgehen?
Me.ValidateChildren
hab ich schon ausgetestet und bringt nichts.
VB.NET-Quellcode
- Private Sub dgv_RowPrePaint(sender As Object, e As DataGridViewRowPrePaintEventArgs) Handles aDgvFahrzeugTablet.RowPrePaint
- Dim rw = DirectCast(DirectCast(aDgvFahrzeugTablet.Rows(e.RowIndex).DataBoundItem, DataRowView).Row, FahrzeugTabletRow)
- If Not rw.Anmeldename = AppDefaults.DefaultDummy Then
- Dim fahrzeugRowsAktiv = Dts.Fahrzeug.Where(Function(x) x.FahrzeugTabletRow Is rw AndAlso x.Aktiv)
- If fahrzeugRowsAktiv.Count > 0 Then
- aDgvFahrzeugTablet.Item("standortFahrzeugstamm", e.RowIndex).Value = String.Join(" | ", fahrzeugRowsAktiv.Select(Function(x) x.StandortRow.Name))
- aDgvFahrzeugTablet.Item("kennzeichenFahrzeugstamm", e.RowIndex).Value = String.Join(" | ", fahrzeugRowsAktiv.Select(Function(x) x.Kennzeichen))
- aDgvFahrzeugTablet.Item("mitarbeiterFahrzeugstamm", e.RowIndex).Value = String.Join(" | ", fahrzeugRowsAktiv.Select(Function(y) y.MitarbeiterRow.expFullname))
- aDgvFahrzeugTablet.ConditionedDgvCellBackColor(e, rw.StandortRow.Name <> aDgvFahrzeugTablet.Item("standortFahrzeugstamm", e.RowIndex).Value?.ToString, "standortFahrzeugstamm")
- End If
- Dim fahrzeugRowsInaktiv = Dts.Fahrzeug.Where(Function(x) x.FahrzeugTabletRow Is rw AndAlso Not x.Aktiv)
- If fahrzeugRowsInaktiv.Count > 0 Then
- aDgvFahrzeugTablet.Item("altfahrzeuge", e.RowIndex).Value = String.Join(" | ", fahrzeugRowsInaktiv.Select(Function(x) x.Kennzeichen))
- End If
- End If
- aDgvFahrzeugTablet.ConditionedDgvRowForeColor(e, Not rw.Aktiv)
- End Sub
"Na, wie ist das Wetter bei dir?"
"Caps Lock."
"Hä?"
"Shift ohne Ende!"
"Caps Lock."
"Hä?"
"Shift ohne Ende!"