>if nkeycode=13 > SET FILTER TO > LOCAL m.ldDat > m.ldDat = thisform.text2.Value > LOCATE FOR dat = m.ldDat > IF FOUND() > LOCAL m.lcMonth > m.lcMonth=TRANSFORM(MONTH(thisform.text2.Value)) > SET FILTER TO MONTH(dat)=&lcMonth. > LOCATE > thisform.grid1.Visible=.t. > thisform.grid1.Refresh > thisform.grid1.column7.setfocus() > else > =messagebox("åÐÇ ÇáÊÇÑíÎ ÛíÑ ãæÌæÏ ") > thisform.grid1.visible=.f. > ENDIF >endif >