hi all,
any idea ,help
i try as under to disply only what i select at mygrid1 via select statment,
i get all data from mytable ,

remark
&&& dvno numaric type,peri character type,dat character type
&&&VIA calander.olecontrol1 
&&&thisform.text5.value= CMONTH(This.object.value)+' '+Str(year(This.object.value))

code

set exac on
set near off
use  TABLE1 in 0

thisform.text1.value= THISFORM.combo1.vALUE
thisform.text2.value=divi.no 


***************
i try as
SELECT * FROM table1 WHERE dvno==THISFORM.TEXT2.VALUE  AND PERI==THISFORM.COMBO2.VALUE AND table1.dat==thisform.text5.value INTO ARRAY laResults
and as
SELECT * FROM table1 WHERE dvno==THISFORM.TEXT2.VALUE  AND PERI=THISFORM.COMBO2.VALUE AND table1.dat=thisform.text5.value INTO ARRAY laResults
****************
IF _TALLY > 0
THISFORM.GRID1.Visible= .T.
GO TOP
thisform.grid1.refresh
*******************************
select 3
LOCATE FOR    temp.mac1=alltrim(thisform.text1.value ) 
  thisform.text2.value=divi.no 
  thisform.grid2.visible=.t.
  thisform.Grid2.RecordSource=SPACE(0)

select nam,macwork1 from mac1;
         where dvno = thisform.text2.Value ;
      into cursor crsMyCursor
thisform.Grid2.RecordSource="crsMyCursor"
RETURN 
  
*************************************
ELSE
=MESSAGEBOX("NOT found.....")
  thisform.COMMAND1.visible=.f.
thisform.grid2.visible=.F.

thisform.grid1.refresh
endif

thanks
m.qasem