*at timer event SELECT trans1 WITH ThisForm.pageframe1.page1 IF EMPTY(.text4.value) .Grid1.visible=.f. .command1.visible=.f. ELSE WITH .Grid1 .visible=.t. SELECT TAlias1.time1,TAlias1.date1,TAlias1.roomno,TAlias1.place1,TAlias2.mobile,TAlias2.tel,TAlias2.empname, TAlias1.discerror,TAlias1.sno,TAlias1.mark1,TAlias1.remark1,TAlias1.remark2,TAlias1.WFLOWNO,TAlias1.flage ; FROM trans1 TAlias1, emp1 TAlias2 ,pasw TAlias3 ; WHERE Alltrim(UPPER(TAlias3.pasw)) == Alltrim(UPPER(thisform.pageframe1.page1.text2.value)) AND TAlias1.empno = TAlias2.empno ; AND TAlias1.fexerno=val(ThisForm.pageframe1.page1.text4.value) AND mark1=0 AND TAlias1.fexerno = TAlias3.empno; ORDER BY date1,sno ; INTO cursor TAliascursor4 ********************************************* thisform.pageframe1.page1.Grid1.SetAll('DynamicBackColor','IIF(TAliascursor4.flage=1,rgb(255,200,200),rgb(255,255,255))','column') *******************************************************thanks