Alle Fragen um die Programmierung, die sich sonst nicht kategorisieren lassen. Von Makro bis Codeblock, von IF bis ENDIF
Moderator: Moderatoren
Wolfgang_B
Rekursionen-Architekt
Beiträge: 484 Registriert: Do, 14. Jun 2007 18:22
Wohnort: 94065 Waldkirchen
Hat sich bedankt: 14 Mal
Danksagung erhalten: 5 Mal
Beitrag
von Wolfgang_B » Mo, 13. Apr 2020 18:08
Hi,
ich habe ein kleines ASort-Problem. Kann mir jemand das Verhalten erklären?
aArray ist ein Array mit 7 Zahlen
Vor ASort
4580
4683
4713
4860
5003
5156
5097
Nach Asort:
0
4580
4683
4713
4860
5003
5097
Zuletzt geändert von
Wolfgang_B am Mo, 13. Apr 2020 18:55, insgesamt 1-mal geändert.
Beste Grüße
Wolfgang
Mitglied des Deutschsprachigen Xbase-Entwickler e. V.
Mitglied der XUG Osnabrück
Bertram Hansen
Foren-Moderator
Beiträge: 1015 Registriert: Di, 27. Sep 2005 8:55
Wohnort: 51379 Leverkusen
Hat sich bedankt: 28 Mal
Danksagung erhalten: 20 Mal
Kontaktdaten:
Beitrag
von Bertram Hansen » Mo, 13. Apr 2020 18:13
Wolfgang,
zeige doch mal den Quellcode, wie du das Array füllst.
Gruß Bertram
http://www.tobax.de
Mitglied der XUG Cologne
Mitglied der XUG Osnabrück
Beisitzer des Deutschsprachige Xbase-Entwickler e.V.
Solange Kakaobohnen an Bäumen wachsen ist Schokolade Obst!
Wolfgang_B
Rekursionen-Architekt
Beiträge: 484 Registriert: Do, 14. Jun 2007 18:22
Wohnort: 94065 Waldkirchen
Hat sich bedankt: 14 Mal
Danksagung erhalten: 5 Mal
Beitrag
von Wolfgang_B » Mo, 13. Apr 2020 18:33
FUNCTION CALC_STAT( nStartJahr, nAnzahlJahr)
LOCAL aCount := ARRAY(nAnzahlJahr)
IF !net_use2("vwstat",.F.,5,"Y","VS5")
MsgBox("STATISTIKTABELLE gesperrt")
RETURN( NIL )
ENDIF
SET DELETED ON
FOR i = 1 TO nAnzahlJahr
LOCATE FOR statyear = nStartJahr
aCount := VS5->austritt
nStartJahr++
NEXT
DBCLOSEALL()
RETURN( aCount )
// ENDFUNCTION CALC_STAT()
Geht bestimmt eleganter. Ist ein Uraltteil. List aus mehreren Jahren Mitgliederzahlen aus einer Tabelle ein.
Beste Grüße
Wolfgang
Mitglied des Deutschsprachigen Xbase-Entwickler e. V.
Mitglied der XUG Osnabrück
Bertram Hansen
Foren-Moderator
Beiträge: 1015 Registriert: Di, 27. Sep 2005 8:55
Wohnort: 51379 Leverkusen
Hat sich bedankt: 28 Mal
Danksagung erhalten: 20 Mal
Kontaktdaten:
Beitrag
von Bertram Hansen » Mo, 13. Apr 2020 18:42
Wolfang,
und wie füllst du das Array? Wo ist dein AADD(aArry)?
Gruß Bertram
http://www.tobax.de
Mitglied der XUG Cologne
Mitglied der XUG Osnabrück
Beisitzer des Deutschsprachige Xbase-Entwickler e.V.
Solange Kakaobohnen an Bäumen wachsen ist Schokolade Obst!
Wolfgang_B
Rekursionen-Architekt
Beiträge: 484 Registriert: Do, 14. Jun 2007 18:22
Wohnort: 94065 Waldkirchen
Hat sich bedankt: 14 Mal
Danksagung erhalten: 5 Mal
Beitrag
von Wolfgang_B » Mo, 13. Apr 2020 18:54
sorry eigene Dummheit. Das Array ist 8 Zeilen groß nicht 7. Damit sehe ich natürlich den letzten Wert nicht
AADD brauche ich hier nicht.Es kommt ja nur in jede Zeile ein Wert aus der Tabelle rein. Das Array wird mit nStatJahr++ hochgezählt.
Trotzdem danke für die Antwort ..
Beste Grüße
Wolfgang
Mitglied des Deutschsprachigen Xbase-Entwickler e. V.
Mitglied der XUG Osnabrück