|
|
|
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.
|
Produktversionen: | sevDataGrid 1.0/2.0 |
VB-Versionen: | VB5/6, MS-Acces |
Autor: | Wolfgang Müller |
Datum: | 16.07.04 |
Views: | 6768 |
|
|
|
  |
|
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
Zurück zur Übersichtsseite
|