Antwort auf: Daten in Datagrid anhängen

[Klaus Major]

Hallo Andreas,

Du machst es Dir unnötig schwer! 🙂
Offenbar ist Deine Bedingung niemals 0, sondern eher EMPTY,
daher kommt kein CR (Return) in Deine Daten!

Und „Adressen“ immer mit OF angeben:
btn 2 OF cd 3 OF stack „xyz“

Mach es so, the DGDATA benötigen wir nicht:

on mouseup
   
   ## So etwas nur EINMAL tippen, Variablen kosten nix!
   put fld "Fname" & tab & fld "FVorname" & tab & fld "FMobil" & tab & fld "FTelefon" & tab & fld "FEMail" into tDaten
   put the dgtext of grp "TGrid" OF card "TelefonGrid" into tDGDaten
   
   ## Nun checken:
   ## Keine Daten vorhanden
   if tDGData = EMPTY then
      put tDaten into tDGDaten
   else

      ## Daten vorhanden, also anhängen
      put CR & tDaten AFTER tDGDaten
   end if
   set the dgText of grp "TGrid" OF card "TelefonGrid" to tDGDaten

   ## JETZT wäre der ideale Zeitpunkt, um die Anzeige zu aktualisieren.
   ## Deine Lösung hinkte immer einen Datensatz hinterher! :-)
   put the num of lines of tDGDaten into fld "Anzeige"

   put empty into fld "FName"
   put empty into fld "FVorname"
   put empty into fld "FMobil"
   put empty into fld "FTelefon"
   put empty into fld "FEMail"
end mouseup

Gruß

Klaus