FOR i=1 TO ALEN(lafieldlist,1) This.addcolumn(This.columncount+1) && Add column to the end lcCaption=Proper(SUBSTR(lafieldlist[i],AT(".",lafieldlist[i])+1)) if TYPE(lcCaption)="M" && Memo This.columns(i).AddObject('edtMemo','editbox') && Add editbox *!* This.columns(i).chkADC.Caption="" This.columns(i).edtMemo.Visible=.T. This.columns(i).CurrentControl="edtMemo" endif if left(lcCaption,3)="Adc" lcCaption="ADC"+Proper(substr(lcCaption,4)) *!* This.columns(i).AddObject('chkADC','checkbox') && Add checkbox *!* This.columns(i).chkADC.Caption="" *!* This.columns(i).chkADC.Visible=.T. *!* This.columns(i).CurrentControl="chkADC" endif This.columns(i).header1.caption = lcCaption && Add header lnWidth=fsize(lcCaption) lnWidth=iif(lnWidth>30,lnWidth-20,lnWidth) This.columns(i).width= MAX(lnWidth,len(lcCaption) ) * THIS.FONTSIZE This.columns(i).controlsource = lafieldlist[i] && Assign controlsource ENDFORNow I can change the content of Memo field, but I still can not read it. What did I do wrong?