>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

*** Grid1.init
with this
 .RecordsourceType = 4
 .recordsource = "select a_cat, selfield from CursorTemp where selfield into cursor crsTrue"
endwith
*** Grid2.init
with this
 .RecordsourceType = 4
 .recordsource = "select a_cat, selfield from CursorTemp where !selfield into cursor crsFalse"
endwith

Cetin