IF FOUND() lnMonth=MONTH(thisform.text2.Value) SET FILTER TO MONTH(dat)=lnMonth>hi all,
>LOCATE FOR dat=thisform.text2.Value >IF FOUND() > SET FILTER TO MONTH(dat)=MONTH(thisform.text2.Value) > thisform.grid1.Visible=.t. > thisform.grid1.Refresh > thisform.grid1.column7.setfocus() >else > =messagebox("the date not found ") > thisform.grid1.visible=.f. >ENDIF > SET FILTER TO >>thanks