>if nkeycode=13 >LOCATE FOR dat=thisform.text2.Value > >IF FOUND() > lnMonth=MONTH(thisform.text2.Value) > SET FILTER TO MONTH(dat)=lnMonth > thisform.grid1.Visible=.t. > thisform.grid1.Refresh > thisform.grid1.column7.setfocus() >else > =messagebox("åÐÇ ÇáÊÇÑíÎ ÛíÑ ãæÌæÏ ") > thisform.grid1.visible=.f. >ENDIF >SET FILTER TO >endif >>
>>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