Rubrik: Controls · sev-Controls | VB-Versionen: VB5, VB6 | 16.07.04 |
Doppelte Einträge im sevDataGrid ausblenden Gibt es in mehreren aufeinander folgenden Zeilen in einzelnen Spalten doppelte Einträge, lassen sich mit diesem Tipp die Verdoppelungen ausblenden, bis ein abweichender Eintrag kommt. | ||
Autor: Wolfgang Müller | Bewertung: | Views: 12.499 |
ohne Homepage | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | kein Beispielprojekt |
Gibt es in mehreren aufeinander folgenden Zeilen in einzelnen Spalten doppelte Einträge, lassen sich die Verdoppelungen wie folgt ausblenden, bis ein abweichender Eintrag kommt. In das RowLoaded-Ereignis wird folgender Code eingegeben (in diesem Beispiel werden doppelte Einträge in den Spalten 1 und 3 ausgeblendet). Das Schöne ist, dass bei Markieren einer solchen Zeile die Einträge trotzdem zu sehen sind. Das Bildschirmfoto zeigt das Beispiel.
Hinweis:
Nachfolgender Code funktioniert nur, wenn das sevDataGrid im Recordset- oder im RandomAccess-Mode verwendet wird.
Private Sub Grid1_RowLoaded(ByVal nRow As Long, Item As sevDataGrid.ListItem) ' Doppelte Gewerkenummern und Bezeichnungen ausblenden With Item If nRow > 1 Then If .CellText(1) = Grid1.Text(nRow - 1, 1) Then .CellForeColor(1) = vbWhite If .CellText(3) = Grid1.Text(nRow - 1, 1) Then .CellForeColor(3) = vbWhite End If End With End Sub
Abb.: mehrfach hintereinander vorkommende gleiche Einträge in bestimmten Spalten unsichtbar machen