Code zur Anzeige von Daten aus DataSet optimieren (Ausführung dauert zu lange)

Huhu.
Ja ein bisschen schwer habe ich mich bei der Befüllung des "13. Monats" getan.
Aber ich glaube das Ergebniss ist ok (hab ich ja gepostet).
Der Rest war relativ einfach, wenn auch ein wenig zeitaufwendig.
Hat etwas gedauert, herauszufinden welche Schleifen ich mir in den anderen Subs sparen kann. Aber klappt ja alles

Ich mach mich jetzt die Tage an den Monatsvergleich und melde mich, wenn es fertig, ist oder ich zwischendrin noch Fragen habe. Könnte aber ein paar Tage dauern.

Bishirhin erstmal nochmal vielen, vielen Dank für deine Hilfe.

Hmm, sorry aber ich habe doch noch eine (Anfänger)Frage.
Es geht nochmal um die Übergabe der Variablen an die einzelnen Subs. z.B.


Diese habe ich (in der alten Version des Codes) alle ByRef übergeben (also quasi als Verweis auf die Variablen, welche von der Aufrufsub übergeben werden), damit sie geändert wieder aus der Sub GetDataSummaries rauskommen.

Wenn ich diese ByVal (was ja der Standart - also in obiger GetDataSummaries Deklaration der Fall - ist), dann arbeitet die Sub GetDataSummaries doch nur mit den Werten der übergebenen Variablen, kann die übergebenen Variablen aber nicht ändern.

Warum kommen die Teile aus deiner Sub verändert wieder raus?

Ah, das heißt im obigen Beispiel würde, wenn year vor der Übergabe 2009 ist und in der Sub GetDataSummaries auf 2010 geändert wird, nach der Ausführung von GetDataSummaries immernoch 2009 sein, weil sie als ByVal eben nicht verändert wird. Diese müsste dann ByRef sein.
Gleiches ist es mit dem Array - das ist nach der Ausführung von GetDataSummaries immernoch das gleiche, beinhaltet aber andere Werte.
Also quasi übergebe ich ein Array immer (so wie) ByRef.

OK, so werde ich es nehmen! und danke für den Link!

Das Beispiel mit der Änderung der Variablen year, war nur ein Beispiel.
Natürlich sinnbefreit, das Jahr byref zu übergeben und zu ändern - aber die Sub diente ja gerade als Beispiel.

Huhu
Ich brauche leider bereits früher deine Hilfe als angenommen.
Ich habe versucht, nach der gleichen Logik wie in deiner "JahresumsatzSub", meine Tagesumsätze auszulesen.
Das Auslesen an sich klappt. Aber ich habe ja bei den Monatseinnahmen das Problem, dass ich jede Einnahme einem Datum zuordnen muss, bzw. wissen muss, an welchem Datum es keine Einnahme gab.
Ich habe mal die Solution angehangen. Hier habe ich jeweils einzelne Dateien erzeugt. "Year" beinhaltet den Code für die Jahresuaswertung - welche hier irrelevant ist.
MonthOld und MonthNew beinhalten entsprechend den alten Code (funktioniert, aber langsam) für die Monatsauswertung. In "New" schreibe ich gerade den neuen Code.

Falls du die Solution nicht brauchst, hier der Code:




Das Problem ist (wie du ja vielleicht siehst), dass es Werte im Array ArrIncome gibt die "0" sind.Also an einem Tag an dem es keine Einnahme gab - ists 0.Das könnte ich ja notfalls beim schreiben ins DGV auswerten, dann in der letzten Spalte ist der Gesamtumsatz. Wenn der 0 ist überspringe ich die Zeile.(Aber evtl. geht das ja eleganter)

Und das Datum (arrdate) stellt noch ein Problem dar. Denn wenn das Datum in der entsprechenden DailyIncomeRow nicht gefunden wurde (also Sonntag der 03.06.2012 z.B.), so wird mir der 01.01.0001 in mein Datumsarray - Arrdate - geschrieben. Auch das müsste ich beim rausschreiben ja auswerten. Was ja ebenfalls geht (weiß nicht ob 01.01.0001 nothing entspricht) - aber notfalls kann ich ja beim Schreiben der Datumswerte in die erste Spalte des DGV ebenfalls den Inhalt prüfen:


Allerdings frage ich mich wie gesagt, ob es so richtig ist diese beiden Punkte ("0 Einnahmen" und "leere Daten") beim schreiben ins DGV auszuwerten, oder ob es eine Möglichkeit gibt, diese Daten garnicht erst ins Array zu schreiben.

Huhu.
Das haut so leider nicht hin.

ErfinderDesRades schrieb:

ich hab den Unterschied "0 Einnahme", "leere Daten" nicht wirklich kapiert.

Ich meine damit, dass Daten (Datumswerte), welche keine Tageseinnahme haben, nicht im DGV auftauchen sollen.
Also am Beispiel Juni 2012 - der 03.06.2012 (Sonntag) hat keine Einnahme, das Datum 03.06.12 soll damit auch nicht im DGV auftauchen.
Allerdings liegt dies NICHT daran, dass es ein Sonntag ist, sondern, dass es eben keine Einnahme gibt.
Es gibt ja zum Beispiel noch Feiertage - also reguläre Wochentage ohne Einnahme, welche folglich auch nicht im DGV auftauchen sollen.
Weiterhin gibt es verkaufsoffene Sonntage - also Sonntage mit Einnahme - diese sollten natürlich ins DGV.

Deswegen habe ich den Ansatz gewählt, die Tagesdaten aus meinem Array ins DGV zu schreiben, weil ich ja nur über mein DataSet herausfinde, welche Tagesdaten es gibt.

Nur habe ich hier eben das Problem bei der Befüllung.
Ich schreibe mir ja in mein Datumsarray für jeden Tag ohne Einnahme ein Nothing.
Auch mein ArrIncome enthält Zeilen in denen alle Werte 0 sind.

Dies stellt ja erstmal kein Problem dar - denn ich kann ja (wie oben gezeigt), beim Schreiben der Daten ins DGV auf "0" und auf nothing Dates prüfen und das Schreiben der Zeile entsprechend überspringen. (muss ich ja eh - aufgrund der unbekannten Arraygröße)
Aber da Frage ich mich halt, ob es so in Ordnung geht "sinnlos" Daten ins Array zu schmeißen und diese später auszusortieren, oder obs da nicht hübscher ist, die Daten garnicht erst im Array zu haben.

Hierzu könnte ich ja z.B. prüfen ob DailyIncome nothing ist:


Ich Frage mich halt nur, ob das Not tut, oder ob ich diese Leerdaten nicht einfach im Array lassen soll.
Denn so kann ich ja z.B. nicht mit "day" arbeiten - sondern muss noch einen extra Counter einbauen z.B.
Denn wie gesagt, beim schreiben muss ich ja eh prüfen ob es eine Einnahme gibt, weil ich ja nicht weiß, wie viele Zeilen im Array beschrieben sind.

Ich hab mir das ganze jetzt mal intensiv angeschaut.
Aber tut mir leid, Tage ohne Einnahme da als Leerzeile geht garnicht.
Da komm ich nicht drrauf klar.

Edit: spricht denn etwas dagegen, den Schleifendurchlauf, beim zusammensammeln der Daten zu überspringen, wenn es an einem Datum keine Einnahme gibt (so wie in Post #49)?
Dann verwende ich nicht mehr ​Dim day = rwDistrTbl.DailyIncomeRow._Date.Day, sondern anstelle dessen eine Zählvariable, die sich bei jedem Durchlauf (sofern Datum gefunden), um 1 erhöht und (sollte) ein Array bekommen, welches nur die relevanten Daten enthält.
In Zeile31 enthält das Array dann die Gesamtumsätze und der Rest dazwischen ist leer.
Das kann ich ja beim schreiben ins DGV abfangen (oder das Array in der Sub ​GetDataSummariesMonth gescheit runderdimensionieren.
(Was ja aber bei 2D Arrays irgendwie doof ist)

So, bin fertig.
Läuft alles, die Ausführungszeit liegt bei 0,3 Sekunden, also top!

Es wäre nett, wenn du mal rüber schaust, ob das so alles passt.

und dann nerve ich mit dem nächsten, wenns ok ist. - Die Rekorde brauchen (weil nach der gleichen "Kack"Logik, wie meine ersten beiden Subs geschireben) ebenfalls ewig zum laden.

Sehr schön. Danke :o)

Nun würde ich gerne - wenn du noch Lust hast - zum letzten Punkt kommen - den statistischen Rekorden.
Also höchste Tageseinnahme, meiste Kunden am Tag, höchste Einnahme nach Warengruppe, höchster Monatsumsatz(gesamt) und pro Warengruppe.
Dazu habe ich wieder ein Demoprojekt rangehangen. Da die Form nichts anderes tut, als diese Daten anzuzeigen, habe ich den Code zur Anzeige eigentlich im Form Load Event.
Da die Ausführung aber sehr, sehr lange dauert, habe ich dies auf einen Button verlegt.
Also Demo runterladen, auf Button klicken, und das Problem ist klar.

Darüberhinaus hätte ich gerne eine Änderung, aber ich glaube, dass dies meinen gesamten Code überflüssig macht und eine Änderung am DataSet nach sich zieht
Ich würde gerne (zusätzlich zu angehängter Anzeige) die Funtkion einbauen, beim speichern eines neuen Umsatzes nach Rekorden zu suchen.
Also wenn z.B. der Tagesumsatzrekord für Kategorie1 bei 100€ liegt und ich eine Einnahme von 120€ eintrage, soll dies gemeldet werden.
Holla - neuer Rekord
alt 100€ am 01.11.2012
neu 120€ am 14.06.2020
Ist es hierfür erforderlich (oder sinnvoll) die Rekorde im DataSet zu speichern?
Denn dann brauche ich ja nur zu prüfen, ob die neu eingetragene Einnahme größer ist, als der gespeicherte Rekord, und fertig. Auch brauche ich ja dann beim anzeigen der hier hochgeladenen Form nix rechnen, sondern die Daten nur anzeigen.
Oder würdest du dies anders angehen?

Ok. Das DataSet wird beim starten der Anwendung geladen.
Ich habe hier etwas Sorge, dass die Ausführung der Rekordsuche merkbare Zeit in Anspruch nimmt.
Da das Laden des DataSets ja eh etwas dauert (wenn es später Gestalt, bzw. Größe) hat, würde die Verzögerung ja größer, wenn dann auch noch gerechnet wird. Denn die Datensuche hier ist ja recht umfangreich.

Aber wenn du sagst geht so, dann machen wir das so.

Ich werde mich die Tage ransetzen, dieangehängte Solution, um eine Tageseinnahmeform zu erweitern (die brauchen wir ja dann), und den funktionierenden Code schon mal umzugestalten.

Sooo, ich hab das jetzt mal umgestellt.
Dabei habe ich die Jahresauswertung (und meinen sämtlichen alten Code) auskommentiert.
Die Jahresauswertung ist der Teil, der die ganze Zeit verschlingt.
Den Tagesumsatzrekord und Tageskundenrekord lasse ich im Form Load Event schon mal auf die Form malen.
Meintest du das so?