Allgemeine Fragen zur PROFAN Programmierung
Views (Heute): 249664 (11100)
  Suchen
 Zurück zur Übersicht
 AutorThema: Array Fehler ?
Tibor
Datum: 03.06.01 13:04 Antwortenals Email verschicken (tiborvonklopotek@gmx.de) 


Hallo

Was mach ich hier falsch ?????
bei * bekomme ich alls ausgabe nur 0en angelistet

PROC KUNDEN_Lesen
@dbOpen(#1,"KUNDEN-DB.DBF")
@dbUse(#1)
KundenRecAnz&=&dbRecCount
@dbGo("|<")
WhileNot %dbEoF
KundenNummer&[&loop]=@dbGetField$(1)
KundenName$[&loop]=@dbGetField$(2)
print "Nr./Name:";KundenNummer&[&loop];KundenName$[&loop]
@dbGo(">")
EndWhile
@dbClose(#1)
EndProc
PROC KUNDEN_Pruef
Print "-------------"
WHILELOOP KundenRecAnz&
print "Nr./Name:";KundenNummer&[&Loop];KundenName$[&loop]
If @Equ(KundenNummer&[&Loop],2)
print "Nr./Name:";KundenNummer&[&Loop];KundenName$[&loop]
EndIf
ENDWHILE
EndProc

Declare KundenRecAnz&,KundenName$[10],KundenNummer&[10]
cls
Kunden_lesen
Kunden_pruef
WaitKey
End

vielen Dank
Tibor


 Zurück zur Übersicht