Hallo Zusammen,
ich hab es geschafft.
Allein mit eurer Hilfe, hier im Clickexe-Forum.
Vielen, vielen Dank
m5cpu,
daywalker,
Dennis
Hier ist mein finales Testscript:
*** Daten über eine Dropdownliste laden und nach Auswahl in der Liste die zugehörige Felder füllen
Anzeige-Fenster 'Felder über Dropdownauswahl füllen', ID='HOME', Breite=200, Höhe=150
Setze in [Datenbank]: 'C:\Users\Admin\Desktop\Eigene Programme\Testdatenbank\testdata.mdb'
*** Hier den Datenbankpfad hinterlegen
Datenbank Modus 'Öffnen/SQL ausführen', ID 'db1', Datenbank '[Datenbank]', Tabelle/SQL 'SELECT DatensatzID, Vorname FROM Vorname', DS-Nummer 1
*** Bezeichner
Bezeichner Text='Vorname' (ID='Bezeichner_Vorname', X='14,29', Y='9,79', Zielfenster='HOME')
Bezeichner Text='Postleitzahl' (ID='Bezeichner_Postleitzahl', X='76,46', Y='9,79', Zielfenster='HOME')
Bezeichner Text='Stadt' (ID='Bezeichner_3', X='133,61', Y='10,58', Zielfenster='HOME')
Bezeichner Text='Datensatz-ID' (ID='Bezeichner_Identnummer', X='133,61', Y='3', Zielfenster='HOME')
*** Felder
Eingabe-Element (ID='FeldPostleitzahl', X='92,34', Y='9', Breite='31,75', Zielfenster='HOME')
Eingabe-Element (ID='FeldStadt', X='143,67', Y='9,79', Breite='25', Zielfenster='HOME')
Eingabe-Element, Ausrichtung=3 (ID='DatensatzID', X='152', Y='2', Breite='17', Zielfenster='FensterMieter')
*** Dropdownliste füllen
Dropdown-Liste '[cX.Datensatz(db1).TabellenText(=)]', mit IDs (ID='ListeVornamen', X='27,78', Y='9', Zielfenster='HOME')
Warte Endlos (Warten auf zu behandelnde Ereignisse)
*** Nach Auswahl der Dropdownliste werden die Felder gefüllt
:: Anzeige(HOME)_Element(ListeVornamen)_Klick
Datenbank Modus 'Öffnen/SQL ausführen', ID 'db2', Datenbank '[Datenbank]', Tabelle/SQL 'SELECT Vorname.DatensatzID, Vorname.Vorname, Postleitzahl.Postleitzahl, Postleitzahl.Stadt FROM Postleitzahl INNER JOIN...', Suchfeld 'Vorname', Suchwort '[cX.Anzeige(HOME).Liste(ListeVornamen).MarkierterText]'
Setze in [cX.Anzeige(HOME).Eingabe(FeldPostleitzahl).Wert]: '' , MultiSet 'cX.Anzeige.Element(DatensatzID).Text = [cX.Datensatz(db2).Feld(DatensatzID)]¶cX.Anzeige.Element(ListeVornamen).Text =...'
Beende Unterprogramm (Zurück)
cX4Web Code: Einfach anklicken zum Kopieren und in click.EXE 5.0 einfügen
(26 Zeilen, cX 5.0.10.7, Lizenz: Pro, Datenbank)