>if nkeycode=13 > SET FILTER TO > LOCATE FOR dat=thisform.text2.Value > IF FOUND() > * SET FILTER TO MONTH(dat)=MONTH(thisform.text2.Value) && via this it works no problem. > lnMonth=MONTH(thisform.text2.Value)&& not works > SET FILTER TO MONTH(dat)=lnMonth && not works > thisform.grid1.Visible=.t. > thisform.grid1.Refresh > thisform.grid1.column7.setfocus() > else > =messagebox("åÐÇ ÇáÊÇÑíÎ ÛíÑ ãæÌæÏ ") > thisform.grid1.visible=.f. > ENDIF >endif>