Problem mit Foreach bei Maps
Verfasst: 03.10.2017 10:18
Hallo zusammen,
kann mir 'mal jemand sagen, wo im folgenden Programm der Fehler steckt, wenn die Foreach-Schleife einen Syntaxerror in der vorletzten Zeile meldet, das DEBUG davor aber den richtigen Wert liefert?
kann mir 'mal jemand sagen, wo im folgenden Programm der Fehler steckt, wenn die Foreach-Schleife einen Syntaxerror in der vorletzten Zeile meldet, das DEBUG davor aber den richtigen Wert liefert?
Code: Alles auswählen
EnableExplicit
Structure Table_Struc
TableName.s
CHeaders.s
CTypes.s
CParameters.s
IDColName.s ; Bezeichnung der Tabellenspalte für den eindeutigen ID
EndStructure
Structure DB_Struc
DBID.i
TableNames.s
Map Tables.Table_Struc()
EndStructure
Define DB.DB_Struc
Define ColHeaders.s,ColTypes.s
ColHeaders="personen,id,name,vorname,sex,geboren,strasse,plz,ort,ledig,notizen,einkommen,Foto"
ColTypes="personen,integer,string(),string(11),combobox(m;w;?),date,string,string,string,combobox(JA;NEIN),BLOB,Float,BLOB"
DB\TableNames="personen,adressen"
NewMap DB\Tables()
AddMapElement(DB\Tables(),"personen")
AddMapElement(DB\Tables(),"adressen")
With DB\Tables("personen")
\TableName="personen"
\CHeaders=ColHeaders
\CTypes=ColTypes
\IDColName="id"
EndWith
With DB\Tables("adressen")
\TableName="adressen"
\CHeaders="AdressID,Strasse,Hausnr,PLZ,Wohnort"
\CTypes="integer,String,String,Integer,String"
\IDColName="AdressID"
EndWith
Debug DB\Tables("adressen")\CHeaders
ForEach DB\Tables()
Debug \TableName
Next