if nkeycode=13 SET FILTER TO LOCATE FOR dat=thisform.text2.Value IF FOUND() c_filter = [MONTH(MONTH(dat) == ]+TRANSFORM(MONTH(thisform.text2.Value))&&syntax erro SET FILTER TO &c_filter thisform.grid1.Visible=.t. thisform.grid1.Refresh thisform.grid1.column7.setfocus() else =messagebox("åÐÇ ÇáÊÇÑíÎ ÛíÑ ãæÌæÏ ") thisform.grid1.visible=.f. ENDIF endif
>>... >> c_filter = [MONTH(MONTH(dat) == ]+TRANSFORM(MONTH(thisform.text2.Value)) >> SET FILTER TO &c_filter >>... >>>>Then there is no needs of property or Public variables