Dear Cetin
Here is my code :

CursorTemp="_"+SUBSTR(SYS(2015), 4)

so i make my records in CursorTemp. it must filled with selected recordes from 14 tables.

*** Grid1
thisform.grid1.recordsource = CursorTemp
thisform.grid1.column1.controlsource = CursorTemp + ".a_cat"
thisform.grid1.column2.controlsource = CursorTemp + ".selfield"   && Selectable Field  (.T.)


*** Grid2
thisform.grid2.recordsource = CursorTemp
thisform.grid2.column1.controlsource = CursorTemp + ".a_cat"
thisform.grid2.column2.controlsource = CursorTemp + ".selfield"    && Selectable Field  (.F.)

can you make correct code for me?
Thanks