ich komme leider nicht wirklich weiter

ich wollte zum Test über einen Button die Datensätze wie im Code beschrieben  auslesen und in eine Tabellenspalte Info anzeigen lassen ob das script überhaupt etwas auslöst.. Von der Syntax her wird kein Fehler anzezeigt leider auch kein Ergebnis ..

let myStat := Diensttabelle.Auswahl;
let myDate := today() + 2;
for i in select Diensttabelle where Datum = myDate and myStat = 1 do
let myInfo := i.Auswahl;
i.(Infos := text(myInfo))
end

ich möchte damit den Status aus "AUSWAHL" im Info anzeigen lassen..

habe ich da einen Denkfehler..?

mfg MK

ich in schon ein wenig weiter habe aber noch einen Fehler den ich nicht da mir die Fahrzeugtype nicht angezeigt wird.

let myDate := today() + 2;
let myAuswahl := 1;
let myFahrzeug := "";
let myInfo := "";
let myVers := "";
for i in select Diensttabelle where Datum = myDate and Auswahl = 1 do
if i.'Versieht Dienst' = 1 then
i.Fahrzeug = myAuswahl
else
if i.'Versieht Dienst' = 2 then
i.Fahrzeug = myAuswahl + 6
else
if i.'Versieht Dienst' = 0 then
i.Fahrzeug = 0
end
end
end;
myFahrzeug := text(i.Fahrzeug);
myInfo := text(i.Auswahl);
myVers := text(i.'Versieht Dienst');
i.(Infos := "versieht " + text(myInfo) + " in " + text(myVers) + " und fährt" + text(myFahrzeug));
myAuswahl := myAuswahl + 1
end

seht ihr da eventuell einen Fehler... mir verschwimmen die Fälle

so sieht die Tabelle als Ergebnis aus welche über einen Button aktualisiert wird.

let myDate := today() + 2;
let myAuswahl := 1;
let myFahrzeug := "";
let myInfo := "";
let myVers := "";
for i in select Diensttabelle where Datum = myDate and Auswahl = 1 do
if i.('Versieht Dienst' = 1) then
i.(Fahrzeug := myAuswahl)
else
if i.('Versieht Dienst' = 2) then
i.(Fahrzeug := myAuswahl + 6)
else
if i.('Versieht Dienst' = 0) then
i.(Fahrzeug := 0)
end
end
end;
myFahrzeug := text(i.Fahrzeug);
myInfo := text(i.Auswahl);
myVers := text(i.'Versieht Dienst');
i.(Infos := "versieht " + text(myInfo) + " in " + text(myVers) + " und fährt" + text(myFahrzeug));
myAuswahl := myAuswahl + 1
end

Geändert aber NÖ die Felder bleiben leer...hmmm Danke in jedem Fall für die Info, ich fange schon zu schielen an :)

so, der Code funktioniert..

let myDate := today() + 2;
let xl := number(1);
let xk := number(7);
let myInfo := "";
let myVers := "";
let myTempVers := 1;
for i in select Diensttabelle where Datum = myDate and Auswahl = 1 do
if i.'Versieht Dienst' = 0 then
i.(Fahrzeug := xl);
xl := xl + 1
end;
if i.'Versieht Dienst' = 1 then
i.(Fahrzeug := xl);
xl := xl + 1
end;
if i.'Versieht Dienst' = 2 then
i.(Fahrzeug := xk);
xk := xk + 1
end;
myTempVers := number(i.'Versieht Dienst');
myInfo := text(i.Auswahl);
myVers := text(i.'Versieht Dienst');
i.(Infos := "versieht " + text(myInfo) + " in " + text(myVers) + " und fährt " + i.Fahrzeug)
end