Dialogfeld mit ausführbaren Script
Sorry aber ich komme immer wieder an meine Grenzen.(Ich habe schon wieder eine Stunde nach einer Lösing gesucht, bekomme es aber nicht hin).
Hiermit kopiere ich neue Einträge in eine Tabelle
---
for i in select BOOKS do
if cnt((select BooksVideosEffects)[Name = i.BookName and TotalPages = i.TotalPages and Vorname = i.AUTHORS.Vorname and Nachname = i.AUTHORS.Nachname]) = 0 then
(create BooksVideosEffects).(
Name := i.BookName;
TotalPages := i.TotalPages;
Vorname := i.AUTHORS.Vorname;
Nachname := i.AUTHORS.Nachname
);
alert("Alle Datensätze wurden nach BooksVideosEffects kopiert")
else
alert("Es sind keine neuen Datensätze vorhanden")
end
end
---
Dialogfunktion
---
let Antwort := dialog("A C H T U N G", "Wollen Sie neue Datensätze nach VideosBooksEffects kopieren?", ["Ja", "Nein"]);
if Antwort = "Nein" then
alert("Datensatz wurde NICHT kopiert.")
else
alert("Die Datensätze wurden erfolgreich nach...kopiert")
end
---
einzeln in separaten Button funktioniert alles, kombiniert nur dr erste Teil wenn nein, nicht wenn Ja ausgewählt wird.
Dann springt er direkt zum letzten alert, führt aber nicht den Code aus.
Meine Vermutung ist, das die Verschachtelung mit dem else falsch ist, aber ich habe null Ahnung wie ich das anders machen soll. Wahrscheinlich ist die Llsung mal wieder ganz einfach.
Was ist wieder falsch???? Vielleicht liegt es auch am Wetter, hier in Berlin bei 37 Grad wird das Gehirn langsam weich gekocht
---
let Antwort := dialog("A C H T U N G", "Wollen Sie neue Datensätze nach VideosBooksEffects kopieren?", ["Ja", "Nein"]);
if Antwort = "Nein" then
alert("Datensatz wurde NICHT kopiert.")
else
for i in select BOOKS do
if cnt((select BooksVideosEffects)[Name = i.BookName and TotalPages = i.TotalPages and Vorname = i.AUTHORS.Vorname and Nachname = i.AUTHORS.Nachname]) = 0 then
(create BooksVideosEffects).(
Name := i.BookName;
TotalPages := i.TotalPages;
Vorname := i.AUTHORS.Vorname;
Nachname := i.AUTHORS.Nachname
);
alert("Alle Datensätze wurden nach BooksVideosEffects kopiert")
else
alert("Es sind keine neuen Datensätze vorhanden")
end
end
end
---
Danke für die Hilfe, das war es zumindest für heute. Mein Koof qualmt.!!!!!
Wolfgang (Grüße aus der Hauptstadt)
3 Antworten
-
Der Dialog ist richtig, allerdings sind die alerts innerhalb der Schleife, d.H.es wird nur der letzte popup angezeigt.
-
Wie muss man das modifizieren das es geht??
-
let myFlag:=false;
let Antwort := dialog("A C H T U N G", "Wollen Sie neue Datensätze nach VideosBooksEffects kopieren?", ["Ja", "Nein"]);
if Antwort = "Nein" then
alert("Datensatz wurde NICHT kopiert.")
else
for i in select BOOKS do
if cnt((select BooksVideosEffects)[Name = i.BookName and TotalPages = i.TotalPages and Vorname = i.AUTHORS.Vorname and Nachname = i.AUTHORS.Nachname]) = 0 then
(create BooksVideosEffects).(
Name := i.BookName;
TotalPages := i.TotalPages;
Vorname := i.AUTHORS.Vorname;
Nachname := i.AUTHORS.Nachname
);myFlag:=true
end
end
end;alert( if myFlag=true then "Alle Datensätze wurden nach BooksVideosEffects kopiert" else "Es sind keine neuen Datensätze vorhanden" end)
Leo
Content aside
- vor 5 JahrenZuletzt aktiv
- 3Antworten
- 1244Ansichten