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