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 »
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 »
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 »
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 »
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 »
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