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 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 ENDFORFirst of all, I display Memo field "Notes", but I can not see it's content - dblClick, Ctrl+Home - nothing works. How can I solve this problem?