Re: styledText in RealSQLDatenbank

[Stefan Sicurella]

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