Das Bearbeiten der Memofelder mache ich inzwischen komplett anders als eigentlich vorgesehen. Ich lesen den Inhalt der Memos aus der Datenbank und schreibe ihn in ein TXT File. Das bearbeite ich im Notizblock und schicke den Inhalt danach zurück in die DB. Das dazugehörige Programm (muß man natürlich noch ein wenig für die eigene DB anpassen) sieht so aus:
Code:
local str txtdatei = "main:memot.txt"
execute "del memot.txt"
local view mh=from deinedatenbnk where abfrage.....
use mh
mhh = memoheight(mh,'memofeld')
if mhh > 0
ok = memowrite(mh,'memofeld',txtdatei)
end if
macro memot
put in mup;put at 1,1 "Die Änderungen übernehmen ?" filled
put in mdown;put at 1,1 "<Nein> <Ja> <ESC>" filled
put in meld
put at 9,1
menu
:"Nein":
:"Ja":
ok = memoload(mh,'memofeld',txtdatei)
replace mh
end menu
end screen
use mh end
Das Makro memot.txt sieht so aus:
Code:
<desk>n <menü>l <ret>memot.txt <ret>