create cursor Dummy (recData m) FieldsToMemo('employee') select Dummy Browse * Put each record of table into a memo field of cursor Function FieldsToMemo Lparameters tcTable If !Used(m.tcTable) USE (m.tcTable) In 0 EndIf Select (m.tcTable) scan insert into Dummy values (RecordtoMemo(m.tcTable)) endscan function RecordToMemo Lparameters tcAlias local m.RecordAsText, m.ix Select (m.tcAlias) && There is a bug with field() if not currently selected area returns wroninfo set textmerge to memvar m.RecordAsText noshow set textmerge on for ix = 1 to fcount(m.tcAlias) if type(field(m.ix,m.tcAlias)) != 'G' if m.ix = 1 \\<<Field(m.ix,m.tcAlias)>>: <<Eval(m.tcAlias+'.'+field(m.ix,m.tcAlias))>> else \<<Field(m.ix,m.tcAlias)>>: <<Eval(m.tcAlias+'.'+field(m.ix,m.tcAlias))>> endif endif endfor set textmerge to set textmerge off return m.RecordAsTextCetin