Problem mit Foreach bei Maps

Für allgemeine Fragen zur Programmierung mit PureBasic.
Benutzeravatar
ProgOldie
Beiträge: 236
Registriert: 19.05.2012 17:09
Computerausstattung: Windows11, Arduinos, Pi3, PureBasic 6.02

Problem mit Foreach bei Maps

Beitrag von ProgOldie »

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?

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
Windows10 / PB5.70 / Arduino (-Due) / Raspberry Pi3 /Linux Mint 18
Benutzeravatar
RSBasic
Admin
Beiträge: 8022
Registriert: 05.10.2006 18:55
Wohnort: Gernsbach
Kontaktdaten:

Re: Problem mit Foreach bei Maps

Beitrag von RSBasic »

Die vorletzte Zeile muss so lauten, damit es funktioniert:

Code: Alles auswählen

Debug DB\Tables()\TableName
Aus privaten Gründen habe ich leider nicht mehr so viel Zeit wie früher. Bitte habt Verständnis dafür.
Bild
Bild
Benutzeravatar
ProgOldie
Beiträge: 236
Registriert: 19.05.2012 17:09
Computerausstattung: Windows11, Arduinos, Pi3, PureBasic 6.02

Re: Problem mit Foreach bei Maps

Beitrag von ProgOldie »

Danke,
ich dachte immer, Foreach .... next beinhalte gewissermaßen automatisch ein with...endwith
Windows10 / PB5.70 / Arduino (-Due) / Raspberry Pi3 /Linux Mint 18
Antworten