Denis,

The easiest solution is:

with thisform.grid1
   .ColumnCount = -1
   .RecordSourceType = 1
   .RecordSource = tcCursorAlias
endwith

With a ColumnCount = -1 VFP will build the grid by itself.

>Hi,
>I have strange (on my look) grid behaviour. Whats wrong in my code?
>
>

>      LPARAMETERS tcCursorALias
>	Thisform.GriD1.RecordSourceType = 1
>	Thisform.GriD1.RecordSource = tcCursorAlias
>	Thisform.GriD1.ColumnCount = AFIELDS(aFlds,tcCursorALias)
>	FOR lni=1 TO Thisform.GriD1.ColumnCount
>	  ?Thisform.GriD1.Columns(lni).ControlSource
>      ENDFOR
>

>
>As result.. untill .columns(7) I have real controlsource value (aliasname.fieldname).. from .columns(7) to .columns(20) - I have EMPTY CONTROLSOURCE VALUE Whats wrong?
>
>Thanks