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