global: dim person_text as styledtext
dim r as recordset
dim a as Integer
dim nr as String
a=listbox1.listindex
if a>-1 then
nr=listbox1.cell(a,3)
db_namen_open
r=dbn.SQLSelect("select rowid, * from daten where rowid='"+nr+"'")
window1.rowid_text.text=nr
Window1.nachname.text=r.IdxField(2).StringValue
Window1.vornamen.text=r.IdxField(3).StringValue
Window1.tag.text=r.IdxField(4).StringValue
Window1.monat.text=r.IdxField(5).StringValue
Window1.jahr.text=r.IdxField(6).StringValue
Window1.stunde.text=r.IdxField(7).StringValue
Window1.minute.text=r.IdxField(8).StringValue
person_text.RTFData=r.IdxField(9).StringValue
dbn.Close
end if
Am 16.10.2007 um 10:48 schrieb Andy Fuchs:
Wenn Du's so geschrieben hast, dann gibt's kein r, person_text ist
undefiniert etc... Wenn Du eine bessere Antwort haben willst, dann
poste
doch mal ein exakteres Beispiel oder wende Dich an den Wahrsager
Deines
Vertrauens.
andy
at 16.10.2007 10:37 Uhr, Stefan Sicurella wrote:
Also irgendwo habe ich den Wurm drin...
dim person_text as styledtext
person_text.RTFData=r.IdxField(9).StringValue
gibt ein NilObject... nur wieso?
Gruß
Stefan
|