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

Warum mit Zufallsgenerator arbeiten? Du hast 3 Farben: schwarz, rot, gold ( ). Dann kreise durch die Farben einfach durch, wenn ne Bestellungsungleichheit kommt:


btw: Örks. Untypisierter Datenzugriff. Aber wurscht. Welche Codezeile? Keine Ahnung, da Du Deinen Code nicht in CodeTags gesetzt hast und somit kein Codeblock entsteht.

@thelightsense Gib der Tabelle eine Spalte mit dem Unterscheidungsmerkmal, wonach Du die Farbunterschiede generieren willst.
Im DGV machst Du diese Spalte unsichtbar (.Visible = False).
Dann sortierst Du das DGV nach dieser unsichtbaren Spalte.
Dann legst Du die erste Farbe fest und gehst Du diese Spalte von oben nach unten und bei jedem Wechsel der Eigenschaft nimmst Du die nächste Farbe.
Feddich.

Hi @VaporiZed und @RodFromGermany !!!

Danke für die schnelle und hilfreiche Unterstützung!! Funzt noch nicht so ganz ... es wird jetzt die erste ROW
black, die nächste rot und dann schokolade xD

wenn es nicht zutrifft das mehrfache Einträge sind bleibt es weiß, schon ein schritt weiter als vorher vielen Dank

Wie kann ich es so verbessern, dass pro Match eine Farbe bleibt .. das ist nämlich exakt der Punkt
an dem ich hänge ... die Logik macht es mir schwer eine Schleife zu bilden.

hier meine Schnippsel::


Dim ColorList As New List(Of Drawing.Color)
Dim IndexOfColorToUse As Integer = 0

Sub findediedopplten()
Dim i As Integer
Dim DRV As DataRowView
Dim DRVnext As DataRowView
Dim drawingcolor As Color

ColorList.AddRange({drawingcolor.Black, drawingcolor.Red, drawingcolor.Chocolate})

For i = 0 To AbfrageBindingSource.Count - 2

If DRV.Item("Bestellung").Equals(DRVnext("Bestellung")) Then

IndexOfColorToUse = (IndexOfColorToUse + 1) Mod 3
AbfrageDataGridView.Rows(i).Cells(1).Style.BackColor = ColorList(IndexOfColorToUse)

End If
Next

End Sub

Deine Sätze sind etwas ... schwierig. Ich muss sie Dank fehlender Interpunktion mehrfach lesen, bis ich glaube sie verstanden zu haben.
Wenn der Code für jede Farbe eine neue Farbe erzeugt, also es immer geht Schwarz-Rot-Gold-Schwarz-Rot-Gold-Schwarz-Rot-Gold, dann ist Dein Vergleichscode Grütze. If DRV.Item("Bestellung").Equals(DRVnext("Bestellung")) Then: Da kommt mir der Vergleich sehr portugiesisch vor. Prüf bitte erstmal, ob der Überhaupt gleiche Bestellungen als solche erkennt. Wenn man von der komischen Syntax absieht: Wo wird zugeordnet, was konkret DRV.Item("Bestellung") und DRVnext("Bestellung") innerhalb der Schleife ist? Muss sich doch bei jeden Schleifendurchgang ändern. Macht es aber laut dem Code nicht.

Noch was: Die Zeile ColorList.AddRange({drawingcolor.Black, drawingcolor.Red, drawingcolor.Chocolate}) sollte nur bei Programmstart, also 1x ausgeführt werden, sonst hast Du bei jedem Aufruf der findediedopplten-Sub wieder 3 zusätzliche Farben drin.

btw: 1. Bitte CodeTags verwenden, 2.: findediedopplten: ich musste es 3x lesen, um es zu verstehen. Nutze ggf. CamelCase (FindeDieDoppelten).

sorry wenn ich mich da etwas unbeholfen ausdrücke! Ich versuche es anders:

Die Codezeile:

funktioniert. Da können Bestellnummern drin stehen ohne Datum egal was!

Mein Code aus dem ersten Post sieht sich Zelleninhalt für Zelleninhalt an (von oben nach unten alle Bestellnummern jeder ROW), und prüft
ob es Übereinstimmungen gibt.
Gibt es eine Zelle mit Inhalt, die gleich dem Inhalt der vorherigen geprüften Zelle ist, färbe
es in Schokoladenfarbe. (siehe Post 1 Tabelle Monitor und Festplatte)



Ist ein Zelleninhalt nicht der gleiche wie der letzte, dann tut die Schleife nix, Zelle bleibt weiß.
(Tabelle aus Post 1, der PC Komplett hat eine andere Bestellnummer als der Monitorfuß, keine Farbe)

Der Code ließt jetzt die Nr 5 und merkt, ist wieder anders als Nr 4, also mach wieder nix.

JETZT KOMMT DER HARKEN !!!

Bei Nr 6 merkt die Schleife, Nr 6 ist aber gleich Nr 5, also wieder einfärben! Bis hierhin ist alles super und
ok, aber ich will jetzt nicht mehr chokolade haben, sondern grün als Farbe !!!

Siehe Post 1, letzte Tabelle

................... ich glaube das ist wieder irre kompliziert geschrieben

Mein Code-Ansatz kann natürlich auch völlig flasch sein, bin da für jede Hilfe dankbar !!!

thelightsense schrieb:

kompliziert geschrieben

Nö, einfach nicht eindeutig. Zuerst soll also Schoko, dann weiß, dann grün kommen. Soweit klar. Das geht, indem Du den Zykluscode aus Post#2 nimmst und dann einfach die ColorList mit den Farben Schoko, Schwarz (oder Weiß?) und Grün festlegst. Aber was soll dann kommen? Und danach? Wenn es immer Schoko -> Schwarz/Weiß -> Grün -> Schwarz/Weiß -> Schoko -> Schwarz/Weiß -> Grün -> Schwarz/Weiß -> Schoko werden soll: na, dann hau eben noch ne Farbe in die Liste:und ändere bei Post#2, Zeile#7 auf ... Mod 4. Oder allgemein gleich auf

btw: "Jetzt kommt der Haken." - und kein Gartengerät

Auch nicht

es reichen sogar zwei Farben ... (von oben nach unten) alle Bestellungen mit der gleichen Bestellnummer haben Schoko, wenn
dann eine NEUE BESTELLNUMMER kommt mit sagen wir 3 Artikeln sollen alle drei Bestellnummern grün sein ...
kommt die nächste Bestellnummer mit 2 Artikeln kann gerne wieder beide Bestellnummern Schoko sein ...

(Tabelle 3 aus Post 1 - erst Schoko (1-3) ...weiß (4) ... grün (5-6) ... jetzt gerne wieder die nächsten gleichen
Bestellnummern in Farbe schoko)

Was funktioniert dann also nicht, wenn Du in die ColorList eben nur 2 Farben drin hast, nämlich Schoko und Grün? Was kommt dabei raus?

Er macht bei Schoko und Grün als Farbe:

Zeig mal bitte den relevanten Code. Denn das kann nicht sein, wenn die Bestellungen wirklich als gleich und unterschiedlich werden, Du nur 2 Farben in der ColorList hast und Du immer dann kolorierst, wenn sich Unterschiede auftun.

p.s Danke schonmal für die Mühe

Zeile#21 gehört raus aus dem If-Block, sonst gibt's ungefärbte Rows.
Zeile#18 stimmt logisch nicht: Nur wenn es NICHT gleich ist, soll die Farbe geändert werden.
Der ganze Code "übersieht" allerdings die letzte Zeile, da die nicht mit ihrer Folgezeile verglichen werden kann, da es keine gibt.
Gegenvorschlag:
...auch wenn ich den untypisierten Kram (Suche mit einem String) am Ende überhaupt nicht gern bei mir verwende.

Mega

Funktioniert exakt wie ich es haben wollte !!!

Vielen Vielen Dank !!!!!