Hallo Leute, eventuell kann mir jemand helfen ... ich komme mit einem Programm nicht weiter.
Ausgangslage: Ein GridView hat eine Spalte mit Bestellungen. Die Bestellungen sind pro Artikel, es kann also mehrere Artikel pro Bestellung geben sieht so aus:
Soweit, sogut. Damit ich hier nicht den Überblick verliere welche Bestellungen zusammen gehören und
welche von anderen Kunden sind lasse ich folgenden Visual Studio Code darüberlaufen:
Dim i As Integer
Dim DRV As DataRowView
Dim DRVnext As DataRowView
For i = 0 To AbfrageBindingSource.Count - 2
DRV = AbfrageBindingSource(i)
DRVnext = AbfrageBindingSource(i + 1)
If DRV.Item("Bestellung").Equals(DRVnext("Bestellung")) Then
AbfrageDataGridView.Rows(i).Cells(1).Style.BackColor = Color.Chocolate
AbfrageDataGridView.Rows(i + 1).Cells(1).Style.BackColor = Color.Chocolate
End If
Next
Sieht dann so aus:
Soweit, sogut. Die Schleife geht die Zellen durch und schaut, ob sie mit der nächsten Vergleichbar ist.
Ist der Inhalt vergleichbar, werden beide eingefärbt. Kommt die Schleife hier zu Nr. 4 ist diese nicht
mehr gleich Nr. 3 und 4 bleibt somit unbehandelt.
Jetzt zum Problem es wird unübersichtlich, wenn ich viele Bestellungen an einem Tag habe und ALLES
in einer Farbe markiert ist. Ich habe etliche Randomfunktionen probiert um erst rot, nächsten matches
dann grün und wieder rot zu bekommen aber komme einfach nicht weiter .... eventuell hilft mir jemand
auf die Sprünge kann ja eigentlich nicht ganz schwer sein.
Sollte so aussehen (zwei Farben genügen völlig, gern aber mehr
Vielen Dank
Ausgangslage: Ein GridView hat eine Spalte mit Bestellungen. Die Bestellungen sind pro Artikel, es kann also mehrere Artikel pro Bestellung geben sieht so aus:
Nr. | Artikel | Bestellung |
1 | Monitor | 08.08.2018-Nr1 |
2 | Monitorkabel | 08.08.2018-Nr1 |
3 | Monitorfuß | 08.08.2018-Nr1 |
4 | PC Komplett | 09.08.2018-Nr1 |
5 | Festplatte | 10.08.2018-Nr1 |
6 | Festplattenkabel | 10.08.2018-Nr1 |
Soweit, sogut. Damit ich hier nicht den Überblick verliere welche Bestellungen zusammen gehören und
welche von anderen Kunden sind lasse ich folgenden Visual Studio Code darüberlaufen:
Dim i As Integer
Dim DRV As DataRowView
Dim DRVnext As DataRowView
For i = 0 To AbfrageBindingSource.Count - 2
DRV = AbfrageBindingSource(i)
DRVnext = AbfrageBindingSource(i + 1)
If DRV.Item("Bestellung").Equals(DRVnext("Bestellung")) Then
AbfrageDataGridView.Rows(i).Cells(1).Style.BackColor = Color.Chocolate
AbfrageDataGridView.Rows(i + 1).Cells(1).Style.BackColor = Color.Chocolate
End If
Next
Sieht dann so aus:
Nr | Artikel | Bestellung |
1 | Monitor | 08.08.2018-Nr1 |
2 | Monitorkabel | 08.08.2018-Nr1 |
3 | Monitorfuß | 08.08.2018-Nr1 |
4 | PC Komplett | 09.08.2018-Nr1 |
5 | Festplatte | 10.08.2018-Nr1 |
6 | Festplattenkabel | 10.08.2018-Nr1 |
Soweit, sogut. Die Schleife geht die Zellen durch und schaut, ob sie mit der nächsten Vergleichbar ist.
Ist der Inhalt vergleichbar, werden beide eingefärbt. Kommt die Schleife hier zu Nr. 4 ist diese nicht
mehr gleich Nr. 3 und 4 bleibt somit unbehandelt.
Jetzt zum Problem es wird unübersichtlich, wenn ich viele Bestellungen an einem Tag habe und ALLES
in einer Farbe markiert ist. Ich habe etliche Randomfunktionen probiert um erst rot, nächsten matches
dann grün und wieder rot zu bekommen aber komme einfach nicht weiter .... eventuell hilft mir jemand
auf die Sprünge kann ja eigentlich nicht ganz schwer sein.
Sollte so aussehen (zwei Farben genügen völlig, gern aber mehr
Nr | Artikel | Bestellung |
1 | Monitor | 08.08.2018-Nr1 |
2 | Monitorkabel | 08.08.2018-Nr1 |
3 | Monitorfuß | 08.08.2018-Nr1 |
4 | PC komplett | 09.08.2018-Nr1 |
5 | Festplatte | 10.08.2018-Nr1 |
6 | Festplattenkabel | 10.08.2018-Nr1 |
Vielen Dank