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 ENDFOR>> Second, I have 3 logical fields - I want to show Yes/No instead of T or F and I want these fields are editable.